Помогите пожалуйста!( Найти сумму квадратов всех целых чисел от 1 до 100, реализовав **...

Question

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

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

Comments

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

---

2 разные

Answer 1

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.

Comments

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

---

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

---

незачто)