целое число N больше 0. найти сумму. 1+1/2+1/3+...+...1/N (Pascal ABC.net) - Паскаль, Turbo Pascal, PascalABC.NET

gogomon93 · 21.06.2011, 13:52

дано целое число N больше 0. найти сумму. 1+1/2+1/3+...+...N
помогите написать программу,очень срочно надо!!!!

Mad_Cat · 21.06.2011, 22:39

Код:

s:=0;
for  i:=1 to n do
s:=s+1/i;

Jaguar83 · 22.06.2011, 07:37

Небольшое уточнение - переменная s должна быть объявлена как

Код:

var s: Real;

21.06.2011, 13:52	#1
gogomon93 Регистрация: 17.04.2011 Сообщений: 6	целое число N больше 0. найти сумму. 1+1/2+1/3+...+...1/N (Pascal ABC.net) дано целое число N больше 0. найти сумму. 1+1/2+1/3+...+...N помогите написать программу,очень срочно надо!!!!

21.06.2011, 22:39	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `s:=0; for i:=1 to n do s:=s+1/i;` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

22.06.2011, 07:37	#3
Jaguar83 Профессионал Пользователь Регистрация: 25.05.2011 Сообщений: 91	Небольшое уточнение - переменная s должна быть объявлена как Код: `var s: Real;` Помог? Будь человеком - жми на весы слева!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Pascal ABC.NET	gogomon93	Помощь студентам	4	01.12.2013 17:56
Pascal ABC.NET	BuTaJI	Помощь студентам	1	26.04.2011 20:10
Pascal в последовательности сумм найти первую сумму, не превосходящую число В	mrRastom	Помощь студентам	4	10.03.2011 16:03
Pascal ABC net	DiLLe	Паскаль, Turbo Pascal, PascalABC.NET	1	08.06.2010 23:20
Pascal ABC .NET	no4_sniper	Паскаль, Turbo Pascal, PascalABC.NET	0	17.10.2009 00:21