Помогите пожалуйста!(

Найти сумму квадратов всех целых чисел от 1 до 100, реализовав на языке программирования Паскаль с помощью циклов "до" (until/repeat) и "n раз" (for)

1
надо 1 программу написать с двумя циклами или 2 разные, в каждой из которых по разному циклу?
2 разные

Ответы и объяснения

Лучший Ответ!
2014-04-14T21:59:28+04:00
Var sum:longint;
i:integer;
begin
sum:=0;
 i:=1;
repeat
sum:=sum+i*i;
i:=i+1;
until i>100;
writeln(sum);
end.


var sum:longint;
i:integer;
begin
sum:=0;
for i:=1 to 100 do
sum:=sum+(i*i);
writeln(sum);
end.

тип переменной sum можно сделать и integer, в ABC работает. но в других версиях не гарантирую. лучше всего longint.
большое спасибо!:)
незачто)