Создать блок-схему к программу паскаль .cпасибо заранее
program p20;
var a,b,c: real; i,n: integer;
function f(x: real): real;
begin
f: =sqr(x)*x*sqr(x)+1;
end;
begin
a: =0; b: =1; n: =20;
for i: =1 to n do begin
c: =(b+a)/2;
writeln('i=',i: 3,'x=',c: 10: 8,
'f(x)=',f(c): 12: 8);
if f(c)=0 then break
else if f(c)*f(0)> 0 then
a: =c else b: =c; end;
end.

Danilfaha    3   13.10.2019 17:19    1