СРОЧНО!!!!!
Написать программу на Паскале
Условие задачи Даны три числа, если они все четные найти их средне арифметическое, если они все нечетные
найти их сумму и произведение.
BobbyFresnel:
А если, например, одно четно и два нечетных? Ничего не дать вообще?
Ответы
Ответ дал:
1
// PascalABC.NET
begin
var (a, b, c) := ReadInteger3('Введи три числа:');
if a.IsOdd and b.IsOdd and c.IsOdd then
Print(a + b + c, a * b * c)
else if a.IsEven and b.IsEven and c.IsEven then
Print((a + b + c) / 3)
end.
Файл:HelloWorld.pas
Третья строка
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад
7 лет назад