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

Question

Конкордия

19 марта, 21:05

+1

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