решите все задания по паскалю ABC пожалуйста очень надо
№2.
Program chisla;
Uses crt;
Var a: longint;
Begin ClrScr;
Writeln (введи число);
Readln (a);
If a mod 2 = 0 then
begin
writeln (a, -чётное число);
end
else
writeln (a, -нечётное число);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
