Question

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

Answer 1

Ответ:

var i, s: integer;

begin

s:=0;

for i:=1 to 100 do

if (i mod 2 <>0) then s:=s+i;

end;

Объяснение: