Если не трудно можно эти 2 задания , желательно по-быстрей ))) Буду благодарен.

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.

один символ - один байт, значит надо кол-во бит поделить на 8:

24576 /8 = 3072 символа

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12

обьем вини изначальный

прирост от меда

прирост от сгущенки

время реализации прироста

время худенья

радиус дверей