Найти сумму членов ряда

@dark99 · Регистрация: 21.01.2011

Author24 — интернет-сервис помощи студентам

Найти сумму 3 членов ряда...

@Puporev · 08.02.2011, 11:02

Pascal

uses crt;
var e,t,s,p:real;
    n,j:integer;
begin
clrscr;
write('Введите наименьший член ряда  e=');
readln(e);
if e>=2 then s:=2
else
 begin
  n:=1;
  t:=2;
  s:=2;
  p:=1;
  while t*p>=e do
   begin
    n:=n+1;
    t:=t*2*n;
    p:=1;
    for j:=1 to n do
    p:=p/n;
    s:=s+t*p;
   end;
  write('S=',s:0:5);
 end;
readln
end.

Найти сумму 3 членов ряда...

Не 3, а тех, читать хоть учись, раз программы не пишешь...

@dark99 8 / 8 / 0 Регистрация: 21.01.2011 Сообщений: 128
		1
	Найти сумму членов ряда 07.02.2011, 20:05. Показов 1158. Ответов 1 Метки нет (Все метки) Найти сумму 3 членов ряда... Миниатюры 0

	08.02.2011, 11:02

Найти сумму членов ряда

Решение