Question

100 баллов! Задача по информатике по теме одномерный массив.
Подсчитать сумму всех НЕЧЁТНЫХ чисел от 101 до 301.​

Answer 1

Ответ:

1.user crt;

2.var sum ,i: integer;

3.begin

4.sum:=0;

5.for i:=101 to 301 do begin

6.if i mod 2=0 then sum :=sum+i;

7.end:

8.writeln(Сумма нечётных элементов = ,sum);

9.end.

Объяснение:

Answer 2

Ответ:

1)

var i, summa: integer;

begin

for i:=101 to 301 do

if i mod 2 = 1 then summa:=summa+i;

writeln ('summa = ', summa);

end.

2)

var i, summa: integer;

begin

for i:=101 to 301 do

if odd(i) then inc(summa, i);

writeln ('summa = ', summa);

end.