Даны три числа.Вывести на экран те из них,чье удвоенное произведение меньше,чем среднее арифметическое этих чисел. СРОЧНО ПОМОГИТЕ ПО ИНФОРМАТИКЕ
Answers & Comments
deafol
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.
Answers & Comments
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.