Question

Сократите эту программу 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.

Answer 1

Var
  a,b,c,y,x,:real;

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
    a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
    y:=(a*b)/c;
    Writeln ('y=',y:5:2);
    end
end.