Для 3-х чисел А,В,С найти произведение двух наибольших, пользуясь формулой: P=(A*B*C)/min(A,B,C)

[Torrich]

Для 3-х чисел А,В,С найти произведение двух наибольших, пользуясь формулой: P=(A*B*C)/min(A,B,C)

[newerow1989]

function min(a,b,c:real):real;
begin
   Result:=a;
   If Result>b then
      Result:=b;
   If Result>c then
      Result:=c;
end;

var a,b,c,p:real;
begin
   Write('a = '); Readln(a);
   Write('b = '); Readln(b);
   Write('c = '); Readln(c);
   p:=a*b*c/min(a,b,c);
   Writeln(p:0:8);
   Readln;
end.

[Torrich]

Да, понравится!
Спасибо!

[newerow1989]

[Аватар]

че то формула P=(A*B*C)/min(A,B,C) не соответствует произведению двух наибольших. Не?

[digitalis]

Как это? Троих перемножили, младшего - из произведения выкинули. Все правильно.
5 * 6 * 7 = 210
210 / 5 = 42 = 6 * 7

[Аватар]

Сообщение от digitalis

Все правильно

Почти. А если наименьшее = 0 ?

[digitalis]

А на 0 делить ниизя ! Фейсконтроль на 0 нужно устроить дополнительно.

[Аватар]

Отож. Для 0, 2, 3 по формуле низзя. А здравый смысл подсказывает, что ответ 6 )