Question

найти сумму положительных нечетных чисел от 10 до 125. пожалуйста)

Answer 1

program chisl;
var n,s:integer;
begin
n:=10;
while n<=125 do begin
if n mod 2<>0 then s:=n+s;
n:=n+1;
end;
write(s);
readln;
end.

Answer 2

У меня все хорошо работает и без неё

Answer 3

program chisl;
var n,s:integer;
begin
n:=10;
while n<=125 do begin
if n mod 2<>0 then s:=n+s;
n:=n+1;
end;
write(s);
end.

Answer 4

Ну епт

Answer 5

Добавил в ответ как надо если что)