СРОЧНО! ПОМОЩЬ ПО PascalABCNET! 6 класс! 30 баллов! Просьба написать нормальное решение. Задача: Даны три целых числа. Если все числа четные, то вывести "Ура". Если только два четных, то вывести "Уже хорошо". Если только одно ч...
СРОЧНО! ПОМОЩЬ ПО PascalABCNET! 6 класс! 30 баллов!
Просьба написать нормальное решение.
Задача: Даны три целых числа. Если все числа четные, то вывести "Ура". Если только два четных, то вывести "Уже хорошо". Если только одно четное число, то вывести "Не все так плохо", если четных чисел нет, то вывести "Повезет в следующий раз".
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c:integer;
begin;
readln(a);
readln(b);
readln(c);
if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) then writeln('Ура')
else
if ((a mod 2=0) and (b mod 2=0)) or ((a mod 2=0) and (c mod 2=0)) or ((b mod 2=0) and (c mod 2=0)) then writeln('Уже хорошо')
else
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('Не все так плохо')
else
writeln('Повезет в следующий раз');
end.
Не нашли ответ?
Похожие вопросы