Написать простую программу(паскаль) Дано три числа a, b, c . В случае четности одного из них на экран выводится «Хотя бы одно из них четно» в противном случае «Ни одного четного».
Написать простую программу(паскаль) Дано три числа a, b, c . В случае четности одного из них на экран выводится «Хотя бы одно из них четно» в противном случае «Ни одного четного».
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program CheckEvenNumbers;
var
a, b, c: integer;
begin
writeln('Enter three numbers: ');
readln(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0) then
writeln('At least one of them is even')
else
writeln('None of them is even');
end.