Написать программу которая считает сумму квадратов всех парных чисел до заданного числа n на языке паскаль​

rkrutoy rkrutoy    2   19.11.2019 22:27    0

Ответы
Дынька666 Дынька666  10.10.2020 14:27

begin

 var n := ReadInteger;

 var s := 0;

 var i := 2;

 while i <= n do

 begin

   s := s + i * i;

   i := i + 2;

 end;

 Print(s)

end.

Не следует задавать n > 1000

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы