Если сумма трёх попарно различных действительных чисел х,у,z меньше единицы , то наименьшее из этих трёх заменитиь полусуммой двух других; в противном случае заменить меньшее из х и у двух оставшихся чисел.

Категория: Delphi/Pascal
2012-01-02 23:39:39
code: #pascal
var x,y,z:real;
begin
 readln(x,y,z);
 if x+y+z<1 then begin
  if (x<y) and (x<z) then x:=(y+z)/2 else
  if (y<z) then y:=(x+z)/2 else z:=(x+y)/2;
 end else
 if (x<y) then x:=(y+z)/2 else y:=(x+z)/2;
 writeln(x:4:2,y:4:2,z:4:2);
end.

автор: Abbatik

Поделиться:

Похожие статьи:

теги: студенты, сумма