Паскаль.Даны действительные положительные числа x ,y .Меньшее из этих двух чисел заменить их полу суммой, а большее их удвоенным произведением.

1

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

2013-03-17T18:46:25+04:00

Вот так?:

 

Program solution;
Uses Crt;
Var x, y, t : real;

begin
clrscr;
write('x, y: ');
readln(x, y);

if x > y then
        begin
        t := y;
        y := (x + y) / 2;
        x := 2 * x * t;
        end
else
        begin
        t := x;
        x := (x + y) / 2;
        y := 2 * t * y;
        end;

write('x = ', x : 0 : 4, '; y = ', y : 0 : 4);

readkey;
End.