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

Question

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

Comments

Все в программу?

---

да

Answer 1

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

Comments

а задержка экрана? readln

---

Впиши если надо

---

Перед end.

---

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

---

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

---

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

---

Ну епт

---

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