переписать программу с Паскаля на С++ var
n:integer;
e,a1,an:real;
begin
repeat
write('e>0 e=');
readln(e);
until e>0;
a1:=0;
an:=1;
n:=1;
repeat
n:=n+1;
a1:=an;
an:=an*(1-1/n);
until abs(an-a1)
write('an=',an:0:6,' |an-a1|=',abs(an-a1):0:6)
end.

meli12341    1   02.12.2021 23:13    0