Передача файла размером 2000 Кбайт через некоторое соединение заняла 40 секунд. Определите скорость передачи данных через это соединение. Единицы измерения писать не нужно.

375 Кбайт = 375*1024 байт = 375*1024*8 бит

Скорость = 375*1024*8/24 = 128000 бит/сек

var

  s: string;

  z,z1,i: integer;

begin

  readln(s);

z: =0;

z1: =0;

  for i: =1 to length(s) do

  begin

  if s[i]='м' then inc(z);

  if s[i]='н' then inc(z1);

  end;

if z> z1 then writeln('больше букв м');

if z< z1 then writeln('больше букв н');

if z=z1 then writeln('букв м и н равное количество');

end.

program mdd; uses crt; var i: longint; beginclrscr; for i: = 10 to 99 dobeginif i mod 13 = 0 then writeln(i); end; readkey; end.