Question

Составить программу для нахождения суммы всех нечетных целых чисел от 11 до 83

Answer 1

Var i,n: integer;
Begin
n:=0;
for i:= 11 to 83 do
if i mod 2=0 then n:=n
else 
begin 
n:=n+i;
WriteLn('i=', i);
end;
Write ('sum=',n);
end.