Цикл с предусловием: вычислить сумму (Pascal ABC)
Добавлено: 21 ноя 2013, 00:09
Developing.ru
форум программистов
https://www.developing.ru/
Цикл с предусловием: вычислить сумму (Pascal ABC)
Страница 1 из 1
Re: Цикл с предусловием: вычислить сумму (Pascal ABC)
Добавлено: 21 ноя 2013, 11:19
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;