Помогите! Нужно составить программу на языке паскаль!
Заранее спасибо

1

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

2013-10-09T14:51:01+00:00
Var
    x, y, f : Real;
begin
    Write('x: ');
    Readln(x);

    Write('y: ');
    Readln(y);

    if x < y then
    begin
        x := (x + y) / 2;
        y := (x * 2 - y) * y * 2;
    end;

    if y < x then
    begin
        y := (x + y) / 2;
        x := (y * 2 - x) * x * 2;
    end;

    Writeln('x = ', x);
    Writeln('y = ', y);

     if x <= 7 then f := -3*x + 9 else f := 1 / (x - 7);
     Writeln(f);

     Readln;
end.