помогите пожалуйста решить задачуу 1.Найти сумму всех нечётных трёхзначных чисел. это программа Паскаль

Скоро сверх разум запрограммируют а Вы такую простую задачу не можете решить.

А с Си перевести смогешь? )
int S=0;
for(int i=101; i

var a,b,i:integer;
begin
b:=0;
for i:=100 to 999 do
begin
a:=i div 2;
if a 0 then b:=b+a;
end;
writeln(b);
readln
end.