Question

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

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.