• сократите эту программу
    program sr;
    var
    a, b, c : real;
    y, x, xb, xc : real;
    na, nb, nc: integer;
    function stup (x: real; n: integer): real;
    var
    i: integer;
    k: real;
    begin
    k:=1;
    for i := 1 to n do
    k := k * x;
    stup := k;
    end;
    begin
    writeln ('Введите x (число должно быть положительным'); readln (x);
    if x >= 0 then begin
    na := 6;
    nb := 3;
    nc := 5;
    xb := x-5;
    xc := 2*x+1;
    a := stup (x,na);
    b := stup (xb, nb);
    c := stup ( xc, nc);
    y := (a*b)/c;
    Writeln ('y=', y:5:2);
    end;
    end.

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years