Найти сумму квадратов нечетных чисел натурального ряда от 1 до 100.

Alinakamisarova Alinakamisarova    2   04.10.2019 05:40    0

Ответы
grenki476 grenki476  09.10.2020 18:53

var

 sum, i: integer;

 

begin

 sum := 0;

 for i := 1 to 100 do

 begin

   if i mod 2 <> 0 then sum += sqr(i);

 end;

 writeln(sum);

end.

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