Question

Вычислите среднее арифметическое значение всех нечётных целых чисел, значения которых лежат в диапазоне от a до b.
+ блок-схемы по данному алгоритму

Answer 1

Pascal ABC.

1. Код:

var

  a, b, n, s, i: integer;

begin

    s := 0;

    n := 0;

    readln(a, b);

    for i := a to b do

        if i mod 2 <> 0 then begin

           inc(n);

           s := s + i;

        end;

    writeln( s / n );

end.

2. Блок-схема: