Построй блок схему X=c*(¬a→¬b)*(¬b→c)

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

1.  

77=7•11, то, (по правилу умножения для комбинаторных задач,информатика,вроде класс 7), в классе может быть или 7 девочек и 11 мальчиков, или 7 мальчиков и 11 девочек, то есть всего ребят 7+11=18. Значит, в 5A классе 18 человек.

2.

1) 20*5=100 (символов)

Именно столько символов она успела набрать до Маши

2) 40-20=20 (символов)

На столько символов Маша будет приближать к уже набранному количеству символов в тексте Кати (будет приближать к Кате, чтобы поровнять счёт символов набранных обеими)

3) 100:20=5 (минут)

Через столько времени Маша догонит Катю по количеству символов в тексте

ответ: через 5 минут