Написать программу!

[joker01]

составьте программу для нахождения суммы по след. формуле:s=1квадрат+2 квадрат+3 квадрат+...+k квадрат,где k вводится с клавиатуры

[Денис999]

program anm;
var k,s:real;
i:integer;
begin
writeln(s);
s:=0;
for i:=1 to 20 do
s:=s+i*i;
writeln;
end.

[DoDge_VipeR]

составьте программу для нахождения суммы по след. формуле:s=1квадрат+2 квадрат+3 квадрат+...+k квадрат,где k вводится с клавиатуры

s:=0;
for i:=1 to k do
s:=s+ i*i;
writeln(s);

Денис999 Вернись в свою тему и в чужие не лезь

[joker01]

большое спасибо!!!

[stel_znamensk]

парни, мне срочно нужна ваша помощь. сеня зачет,а я прогу доделать не могу, вот задание
STЕL (22:58:17 24/05/2010)
Вычислить порядковый номер элемента последовательности 1+1/(1+2)+1/(2+3)... + 1/(n+(n+1)), значение которого станет меньше 0,002
вот я написал, но судя по всему не савсем правельно

program p1;
const
N=300;
x=0.002;
var
mas: array[1..N] of real;
m,i:integer;
begin
begin
For i:=1 to N do
Mas[i]:=1/(2*i-1);
end;
writeln(mas[251]);
begin
For i:=1 to N do
If mas[i]<x then
m:=i;
[ТУТ НАДО ОСТАНОВИТЬ ЦИКЛ, НЕ ЗНАЮ КАК]
end;
readln(m);
end.
можите готовый вариант прислать? оч на вас надеюсь!

[ROMA2PVT]

1.Не лезьте в чужую тему.
2.

[ТУТ НАДО ОСТАНОВИТЬ ЦИКЛ, НЕ ЗНАЮ КАК]

break;

[stel_znamensk]

Спасиб! а про тему, я просто не до конца знал куда впихнуться, но хоть кто та помог! пасяб!!!