Даны две тройки вещественных чисел. Найти среднее арифметическое максимумов каждой тройки
P.S
писать программу на базе PaskalABC.NET
Нет комментариев
Ответы
Гость Вроде как-то так:
var a1,a2,a3,a4,a5,a6:real;
function sr(a1,a2,a3:real):real;
begin
if ((a1<=a2) and (a1>=a3)) or ((a1<=a3) and (a1>=a2)) then sr:=a1
else
if ((a3<=a2) and (a3>=a1)) or ((a3<=a1) and (a3>=a2)) then sr:=a3
else
sr:=a2;
end;
begin
write('Введите две тройки чисел:');
readln(a1,a2,a3,a4,a5,a6);
writeln('Среднее арифметическое 2-х средних чисел =',(sr(a1,a2,a3)+sr(a4,a5,a6))/2:0:4);
end.
2 комментария:
Это же PascalABC.NET, а не древний Турбо или Фри )))
Тут достаточно трех строчек (вообще-то и в одну можно, но будет витиевато)
Это же PascalABC.NET, а не древний Турбо или Фри )))
Тут достаточно трех строчек (вообще-то и в одну можно, но будет витиевато) Похожие вопросы
Список предметов
