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