Нужно написать программу в паскале:Дано целое трёхзначное число, определить является ли оно чётным.
Нужно написать программу в паскале:Дано целое трёхзначное число, определить является ли оно чётным.
Гость
Ответ(ы) на вопрос:
ГостьProgram pr;
uses crt;
var
a:integer;
Begin
writeln('Введите трёхзначное число');
readln(a);
if (a mod 2 = 0)
then writeln('Число четное')
else writeln('Нечетное');
readln;
end.
Не нашли ответ?
Похожие вопросы