Напишите программу в pascal abc которая будет считать нули в числе

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
  Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.

Тестовое решение:
n= 5350004533300045645600
8 нулей

Объяснение:

1. Можно вычислять скорость передачи, но в конкретном случае намного проще решить математически, через пропорцию:

12 Мб - 9 минут

8 Мб - x минут

x=8*9/12= 6 минут

2. В книжке всего 400*30*60=720000 символов. Каждый символ кодируется 8 битами. Значит всего в книжке 720000*8=5760000 бит.

При скорости передачи 5 кбит/с = 5120 бит/с книжку можно передать за 5760000 / 5120=1125 секунд.

3. 2 Кб = 2048 байт= 2048*8=16384 бит.

Если 16384  бит передали за 8 с, то каждую секунду передается 16384/8=2048 бит

ответ:

uses crt;

var a: array[1..20,1..20] of real;

    n,m,i,j: integer;

    s: real;

begin

    clrscr; randomize;

    write('введите кол-во строк: '); readln(n);

    write('введите кол-во столбцов: '); readln(m);

    for i: =1 to n do

    begin

      for j: =1 to m do

      begin

        a[i,j]: =random(100)/10;

        write(a[i,j]: 4: 1);

      end;

      writeln;

    end;

    for i: =1 to n do

    begin

      s: =0;

      for j: =1 to m do

      s: =s+a[i,j];

      writeln('сумма ',i,'-ой строки: ',s: 0: 1);

    end;

    for j: =1 to m do

    begin

      s: =0;

      for i: =1 to n do

      s: =s+a[i,j];

      writeln('сумма ',j,'-ого столбца: ',s: 0: 1);

    end;

    for j: =1 to m do

    begin

      s: =0;

      if j mod 2 = 0 then  

      begin

        for i: =1 to n do

        s: =s+a[i,j];

        writeln('среднее арифметическое ',j,'-ого столбца: ',s/m: 0: 1);

      end;

    end;

    readln;

end.

объяснение: