Вопрос по информатике:
СРОЧНО! ПОМОЩЬ ПО PascalABCNET! 6 класс! 30 баллов!
Просьба написать нормальное решение.
Задача: Даны три целых числа. Если все числа четные, то вывести "Ура". Если только два четных, то вывести "Уже хорошо". Если только одно четное число, то вывести "Не все так плохо", если четных чисел нет, то вывести "Повезет в следующий раз".
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.12.2015 23:08
- Информатика
- remove_red_eye 17535
- thumb_up 8
Ответы и объяснения 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.
- 03.12.2015 05:09
- thumb_up 20
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.