Безотлагательно! ПОМОЩЬ ПО PascalABCNET! 6 класс! 30 баллов!Просьба написать обычное

СРОЧНО! ПОМОЩЬ ПО PascalABCNET! 6 класс! 30 баллов!
Просьба написать обычное решение.
Задачка: Даны три целых числа. Если все числа четные, то вывести "Ура". Если только два четных, то вывести "Уже хорошо". Если только одно четное число, то вывести "Не все так плохо", если четных чисел нет, то вывести "Повезет в последующий раз".

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт