Сократите эту программу program sr; var a, b, c : - вопрос №9025313 от SamForDevil 02.11.2020 18:59

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.

SamForDevil · Answer

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);    endend....