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.

Объяснение:

Answer 2

Конечно! Я готов помочь вам. Пожалуйста, уточните условие, которому должно соответствовать введенное целое число A.