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