плз помогите легко просто надо несколько вариантов решения

[sp.caster]

написать программу для вывода суммы квадратов чисел от 1 до 10! написал несколько своих, уже фантазии просто нехватает на другие варианты решения, помогите плз, зарание большое спасибо

[maladoy]

свои то покажи!!!!

[maladoy]

1

var s,i:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+sqr(i);
writeln(s);
readln;
end.

2

var s,i:integer;
begin
s:=0;
i:=0;
while i<11 do begin
s:=sqr(i);
i:=i+1;
end;
writeln(s);
readln;
end.

3

var s,i:integer;
begin
s:=0;
i:=0;
repeat 
s:=s+sqr(i);
i:=i+1;
until i>10;
writeln(s);
readln;
end

.
4

var s:integer;
begin
s:=sqr(1)+sqr(2)+sqr(3)+sqr(4)+sqr(5)+sqr(6)+sqr(7)+sqr(8)+sqr(9)+sqr(10);
writeln(s);
readln;
end.

[sp.caster]

Ну вот например:
program p;
var
N:=integer;
begin
for N:=1 to 10 do
writeln (sqr(N));
readln
end.
ну и еще пара!
спасибо за помощь!

[sp.caster]

вывести на экран квадраты чисел от 1 до 15. помоги еще плз

[maladoy]

тоже в 4 вариантах???

[sp.caster]

желательно да

[maladoy]

1

Код:

var s,i:integer;
begin
s:=0;
for i:=1 to 15 do begin
s:=sqr(i);
writeln(s);
end;
readln;
end.
2

Код:

var s,i:integer;
begin
s:=0;
i:=0;
while i<16 do begin
s:=sqr(i);
writeln(s);
end;
readln;
end.

3

Код:

var s,i:integer;
begin
s:=0;
i:=1;
repeat 
s:=sqr(i);
writeln(s);
i:=i+1;
until i>15;
readln;
end.

4

var s:integer;
begin
writeln(sqr(1));writeln(sqr(2));
writeln(sqr(3));
writeln(sqr(4));
writeln(sqr(5));
writeln(sqr(6));
writeln(sqr(7));
writeln(sqr(8));
writeln(sqr(9));
writeln(sqr(10));
writeln(sqr(11));writeln(sqr(12));
writeln(sqr(13));writeln(sqr(14));
writeln(sqr(15));
readln;
end.

[sp.caster]

все, спасибо огромное!