Учеба и наука
Программирование - вопрос №503000
Вычислить последнюю сумму членов ряда при которой модуль разности между текущим и предыдущим членами ряда остается меньше 1.вывести на экран значение последнего слагаемого и его номер 1+1/2+1*2,4+1*2*3/8
декабрь 23, 2012 г.
-
Всего ответов: 1
-
program pr;
var a1,a2,s:real;
pf,p:longint;
i:integer;
begin
a1:=1;
a2:=1/2;
pf:=1;
i:=2;
p:=i;
s:=a1;
while abs(a2-a1)<1 do
begin
s:=s+a2;
a1:=a2;
pf:=pf*i;
p:=p*2;
a2:=pf/p;
i:=i+1;
end;
writeln('s=',s:8:3);
writeln('a=',a1:8:3);
writeln('nom=',i-1);
readln
end.
Буду благодарна, если отметите
Похожие вопросы
Помогите найти алгоритм решения задачи о ранце методом ветвей и границ
сентябрь 1, 2014 г.
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.