Question

Найти сумму квадратов всех натуральных чисел от 1 до 100. Решить задачу используя цикл while и repeat

Answer 1

===== PascalABC.NET =====

begin

 var (s, i) := (0, 1);

 while i <= 100 do

 begin  

   s += Sqr(i);

   i += 1

 end;

 Println(s);

 

 (s, i) := (0, 1);

 repeat

   s += Sqr(i);

   i += 1

 until i > 100;

 Println(s)

end.