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

baxitclash baxitclash    2   30.11.2019 13:04    3

Ответы
Элиманго Элиманго  10.10.2020 17:15

===== 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.


Найти сумму квадратов всех натуральных чисел от 1 до 100. решить используя цикл while и repeat
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика