var i,s:integer;
begin
i:=101;
while i<1000 do
s:=s+i;
i:=i+2
end;
writeln('ответ: ',s)
Поделитесь своими знаниями, ответьте на вопрос:
Найти сумму чисел которые делятся на n среди всех трехзначных чисел. (паскаль)
var i,s:integer;
begin
i:=101;
while i<1000 do
begin
s:=s+i;
i:=i+2
end;
writeln('ответ: ',s)