Предмет: Информатика,
автор: misuiro
Ввести любое целое число А, если число соответствует условию
0
помогите, пожалуйста!
Ответы
Автор ответа:
0
Ответ:
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.
Объяснение:
Похожие вопросы
Предмет: Технология,
автор: Myrlichok
Предмет: Окружающий мир,
автор: Таня19861111
Предмет: Русский язык,
автор: девочка181
Предмет: История,
автор: lenaByrkinapomoqite
0