Вася составляет 5-буквенные коды из букв м а н o к. каждую букву нужно использовать ровно 1 раз, при этом код не должен начинаться с о и не может содержать ао

ответ:

16   кодов можно получить

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

program p_1

var

a: string

begin

writeln ('vvedite nazvanie rek');

read (a);

if (a='волга,днепро,нёман,енисей')then

writeln ('в беларуси протекают только днепро,нёман');

end.