Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100

Question

Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 100

Answer 1

program one;
var
i,b:integer;
begin
b:=0;
for i:=1 to 100 do
if (i mod 2 = 0) then b:=b+i;
writeln(b);
end.

Comments

здесь вычисляется сумма четных цифр(кратных 2)

---

бл*,

---

н..........невнимательность

Answer 2

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