Question

Ввести любое целое число А, если число соответствует условию
0
помогите, пожалуйста!

Answer 1

Ответ:

Program p17;

var A:integer;

begin

readln (A);

if A=0 then A:=A+3

else if A<>0 then A:=0;

writeln (A);

end.

Объяснение: