По pascalabcnet! 6 класс! 30 ! просьба написать нормальное решение. : даны три целых числа. если все числа четные, то вывести "ура". если только два четных, то вывести "уже хорошо". если только одно четное число, то вывести "не все так плохо", если четных чисел нет, то вывести "повезет в следующий раз".

175

227

Посмотреть ответы 2

Ответы на вопрос:

upf300804

Информатика

4,8(20 оценок)

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.