Построить блок схему к программе, program cikl; var a,b,h,x1,x2,y: real; begin writeln ('введите a'); readln (a); writeln ('введите b'); readln (b); writeln ('введите x1'); readln (x1); writeln ('введите x2'); readln (x2); writeln ('введите h'); readln (h); while x1< =x2 do begin if (x1< 1.4) then y: =3.14*x1*x1-7/x1*x1 else if x1=1.4 then y: =a*x1*x1+7*sqrt(x1*x1-1) else y: =(a+b*x1)/sqrt(x1*x1+1); writeln (x1,y); x1: =x1+h; end end.

kurzinovaa    2   13.09.2019 20:20    1