Определите,является ли данное число четным или нечетным ( написать в pascal )

13 Мар 2020 в 19:41
208 +1
0
Ответы
1

var a: integer;

begin

readlnaaa;

if a mod 2=0 then writeln′Четное′'Четное'Четное

else writeln′Нечетное′'Нечетное'Нечетное;

end.

17 Мар 2020 в 15:27
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир