сделать в Delphi 7 - Помощь студентам

ilnar · 16.12.2009, 13:39

Дано целое число N(>0). Найти сумму N^2+(N+1)^2+(N+2)^2+...+(2*N)^2 (целое число).

Помогите пожалуйста с решением этой задачки

Voody · 17.12.2009, 00:35

Что тут договариваться...

Код:

S:=0;
for i:=N to 2*N do S:=S+i*i;

N берем откуда надо (из Edit какого-нибудь)
И выводим S куда надо

16.12.2009, 13:39	#1
ilnar Пользователь Регистрация: 22.05.2009 Сообщений: 33	сделать в Delphi 7 Дано целое число N(>0). Найти сумму N^2+(N+1)^2+(N+2)^2+...+(2*N)^2 (целое число). Помогите пожалуйста с решением этой задачки

17.12.2009, 00:35	#2
Voody Форумчанин Регистрация: 22.06.2009 Сообщений: 310	Что тут договариваться... Код: `S:=0; for i:=N to 2N do S:=S+ii;` N берем откуда надо (из Edit какого-нибудь) И выводим S куда надо

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7	666dart666	Помощь студентам	11	04.11.2010 17:57
Delphi. Помогите сделать задание.	procomp	Помощь студентам	2	01.10.2009 01:22
Как сделать линейку в Delphi	blackstersl	Общие вопросы Delphi	4	25.07.2009 18:49
Как сделать сетку в Delphi?	-HunteR-	Общие вопросы Delphi	2	14.02.2009 17:25