|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дано целое число. Найти сумму
задача:Дано целое число N(>0). Найти сумму N^2+(N+1)^2+(N+2)^2+...+(2N)^2 - (целое число).
вот мое решение: Код:
var a,e,d:real; n,i:integer; begin read(n); d:=n*n; e:=1; while e<>n do begin d:=d+sqr(d+e); e:=e+1; end; write(d); end. |
#2
|
|||
|
|||
нашел ошибку) можно закрыть)
|
#3
|
|||
|
|||
Вот так проще:
Код:
program Test; {$APPTYPE CONSOLE} var D, I, S : Integer; begin write('Input N='); readln(N); S := 0; for I := 0 To N Do S := S + sqr(N+I); writeln('Sum=',S); end. |