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.
Максимально подробно.
1 символ занимает 8 бит = 1 байт.
1 усл. п. л. занимает 96 Кбайт = 98304 байт = 98304 символов (1 Кбайт = 1024 байта)
4 усл. п.л. будут занимать 393216 символов.
Находим время: 393216 символов / 512 символов в секунду = 768 секунд = 12,8 минуты
Ответ: 12,8 минуты или 12 минут 48 секунд.