Написать простую программу(паскаль)
Дано три числа a, b, c .
В случае четности одного из них на экран выводится «Хотя бы одно из них четно» в противном случае «Ни одного четного».
Ответы на вопрос
Ответил TaTaPmember
1
var a,b,c:integer;
begin
writeln('Введите три числа');
read(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('Хотя бы одно из них четно') else writeln('Ни одного четного');
end.
begin
writeln('Введите три числа');
read(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('Хотя бы одно из них четно') else writeln('Ни одного четного');
end.
Новые вопросы
Русский язык,
1 год назад
Русский язык,
1 год назад
Алгебра,
1 год назад
Русский язык,
1 год назад
Математика,
7 лет назад