Question

Найдите сумму всех трехзначных нечетных чисел; по металлу гауса​

Answer 1

Пошаговое объяснение:

var i,s:integer;

begin

i:=101;

while i<1000 do

begin

s:=s+i;

i:=i+2

end;

writeln('Ответ: ',s)

end.