информатика
Вводится число с клавиатуры. Необходимо вывести его на экран и выяснить четное оно или нет.
Оставить ответОтвет №1
Var a:integer;
begin
write('a = ');
readln(a);
if a mod 2 =0
then writeln('Число ',a,' четное')
else writeln('Число ',a,' нечетное')
end.
Пример:
a = 28
Число 28 четное
Знаете ответ?