Информатика

Епистимня

20 сентября, 14:25

Сократите эту программу

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.