Дано целое число А. Если значение А = 0, то необходимо увеличить его на 3, иначе присвоить А значение, равное 0. Составьте на Паскале программу для решения этой задачи. Программа должна иметь дружественный интерфейс

Question

Варлам

22 февраля, 01:42

+5

Ответы (1)

Знаете ответ на вопрос?

Флорентин · Answer 1

Program p17;

var A:integer;

begin

readln (A) ;

if A=0 then A:=A+3

else if A0 then A:=0;

writeln (A) ;

end.