Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел

1

Ответы и объяснения

  • Sky09
  • профессор
2013-12-09T20:45:26+04:00
Uses crt;
var a,b,c:real;
begin
     read(a,b);
     c:=a;
     if a>b then
     begin
          a:=2*a*b;
          b:=(c+b)/2;
     end
     else begin
          a:=(a+b)/2;
          b:=2*c*b;
     end;
     writeln;
     write(a,' ',b);
end.