Напишите для данной программы блок - схему. var s, p: real;
n,k, x : integer;
Begin
x:= 3;
s:= 0;
p:= 1;
for n:= 1 to 4 do
s:= ((x-1)/(x+1))**(2*n + 1)/(2*n +1);
for k:= 1 to 8 do
p:= (k+3)/(k+5);
writeln ('s = ', s:6:4);
writeln ('p = ', p:6:4);
end.

husravh323    3   05.12.2020 16:05    0