С помощью оператора "For" подсчитать сумму нечетных чисел в интервале от A до B. A<B...

Question

С помощью оператора "For" подсчитать сумму нечетных чисел в интервале от A до B.
A Помогите пожалуйста
PascalABC

Answer 1

Var a,b,i,s:integer;
begin
readln(a,b);
s:=0;
for i:=a to b do
 if i mod 2=1 then s:=s+i;
writeln('s = ',s);
end.

Пример:
5 10
s = 21

Comments

Спасибо