Question

Создать два алгоритма(один с предусловием, второй с постусловием) на Pascal, которые будут вычислять среднее геометрическое значение всех чётных чисел, значения которых лежат в диапазоне от a до b

Answer 1

Pascal ABC.

1. Код с предусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    while a <= b do begin

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    end;

    writeln( exp(ln(s)*(1/n))  );

end.

2. Код с постусловием:

var

  a, b, n, s: integer;

begin

    readln(a, b);

    s := 1;

    n := 0;

    repeat

          if a mod 2 = 0 then begin

             s := s * a;

             inc(n);

          end;

          inc(a);

    until a > b;

    writeln( exp(ln(s)*(1/n))  );

end.