Даны 3 числа: a,b,c. Определить среднее арифметическое двух не максимальных чисел. Позязя^^
Даны 3 числа: a,b,c. Определить среднее арифметическое двух не максимальных чисел. Позязя^^
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b,c:integer;
s:real;
begin
read(a,b,c);
if (a>b)and (a>c) then
s:=(b+c)/2else
if (c>a)and (c>b) then
s:=(b+a)/2
else
if (b>a)and (b>c) then
s:=(a+c)/2;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы