Даны три числа.вывести на экран те из них,чье удвоенное произведение меньше,чем среднее арифметическое этих чисел. по информатике

189

221

Посмотреть ответы 2

Ответы на вопрос:

Zheka645567

Информатика

4,6(9 оценок)

Var a, b, c, s : real; begin write('1 chislo: '); readln(a); write('2 chislo: '); readln(b); write('3 chislo: '); readln(c); s : = (a + b + c) / 3; if a * b < s then writeln(a,' ',b); if a * c < s then writeln(a,' ',c); if b * c < s then writeln(b,' ',c); end.