Цикл с предусловием: вычислить сумму (Pascal ABC)
t:=0.5;
for i:=1 to 10 do begin
t:=-t*(i+1)/(i+2)*x;
inc(s,t);
end;
for i:=1 to 10 do begin
t:=-t*(i+1)/(i+2)*x;
inc(s,t);
end;
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.