Question

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

Answer 1

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.