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

Question

Варлам

14 июля, 07:08

+4

Ответы (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.