Вопрос по информатике:
Задача на Pascal. Даны 3 числа, если они чётные то умножить на 2 и сложить, если нечётные то их сложить и прибавить 10. Пожалуйста сделайте)
- 16.05.2018 14:46
- Информатика
- remove_red_eye 18552
- thumb_up 25
Ответы и объяснения 1
Program p1;
var a, b, c: integer;
y: real;
begin
write ('Введите числа >> ');
readln (a, b, c);
if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then y:=(a+b+c)*2
else y:= a+b+c+10
end.
- 17.05.2018 06:16
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.