Три пятиклассницы анна, ева и лиза одинаково быстро и хорошо умеют набирать текст на компьютере. если любые две из этих девочек будут работать одновременно, то смогут напечатать материалы для школьной газеты за час. сколько времени они потратят на эту работу, если будут выполнять её все трое вместе?

Получается, что любая из них наберёт этот текст за (1  час*2) = 2 часа. если они будут работать втроём, то потратят в 3 раза меньше времени, т.е. 2 часа/3 = 120 минут/3 = 40 минут.

Среднее абсолютное отклонение mad = сумма (по i от 1 до n) |x(i) - ~x| / n программа sredx = 0 for i = 1 to n     sredx = sredx + x(i) next i sredx = sredx / n ' посчитали среднее арифметическое ~x mad = 0 for i = 1 to n     mad = mad + abs(x(i) - sredx) next i mad = mad / n ' посчитали среднее абсолютное отклонение среднее квадратическое отклонение mqd = sqrt(сумма (по i от 1 до n) (x(i) - ~x)^2 / n) программа mqd = 0 for i = 1 to n     mqd = mqd + (x(i) - sredx)^2 next i mqd = (mqd / n)^(1/2) ' посчитали среднее квадратическое отклонение otnos = mqd / mad ' посчитали отношение квадратического к абсолютному среднее арифметическое из средних абсолютных отклонений поддиапазонов посчитай mad в каждом поддиапазоне отдельно, а потом среднее арифметическое, как в цикле sredx.

program raf105;

var

  a,i,n,c: integer;

  x,x2: boolean;

begin

  write('введите количество чисел: ');

  readln(n);

  writeln('вводите ',n,' чисел по очереди');

  readln(a);

  if a > = 0

    then x2: = true

    else x2: = false;

  for i: =2 to n do

  begin

    readln(a);

    if a > = 0

      then x: = true

      else x: = false;

    if x < > x2

      then c: = c+1;

    x2: = x;

  end;

  writeln('количество изменений знака: ',c);

end.

pascalabc 3.4.2