Pascal. Задача. Помогите

Demon1911 · 13.03.2012, 20:41

S=1\3+2\5+3\7+...........+N\2N+1
составить программу вычисления суммы

помогите плиз с задачей

AlexZir · 14.03.2012, 09:22

Код:

var n:integer; s:longint;
begin
writeln('Input N');
readln(n);
s:=0;
while n>=1 do
begin
s:=s+n/(2*n+1);
dec(n);
end;
writeln('Summa =',s);
readln
end.

13.03.2012, 20:41	#1 (permalink)
Demon1911 Новичок Регистрация: 13.03.2012 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal. Задача. Помогите S=1\3+2\5+3\7+...........+N\2N+1 составить программу вычисления суммы помогите плиз с задачей

14.03.2012, 09:22	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Код: var n:integer; s:longint; begin writeln('Input N'); readln(n); s:=0; while n>=1 do begin s:=s+n/(2*n+1); dec(n); end; writeln('Summa =',s); readln end.

13.03.2012, 20:41
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Проблема частая, на форуме уже создавались схожие обсуждения Задача в Pascal Задача на Pascal Задача. Output. Pascal Задача на массивы, Pascal. Помогите найти ошибку

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070