Question

В середовищі PascalABC створіть програму, яка виводить на екран усі непарні числа від 1 до 100 та обчислює їх суму. Використайте команду циклу з параметром FOR.

Answer 1

Код:

var

   i, sum: integer;

begin

sum:=0;

for i:=1 to 100 do begin

     if i mod 2 <> 0 then begin

        write(i,' ');

        inc(sum, i);

     end;

end;

writeln;

write('Sum =',sum);

end.