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