С клавиатуры вводится число,определить является ли оно четным,результат вывести на экран.
(написать программу в паскале)
var
a: integer;
begin
writeln(Введите число);
readln(a);
if (a mod 2 = 0) then
writeln(Число является четным) else
writeln(Число является нечетным);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
