Урок 16 (Решенная задача номер 7)

Урок 16 (Решенная задача номер 7)

Проверить можно ли строки из m перестановкой символов получить строку n.

type meArR = array ['a'..'z'] Of integer;

Var a, b : meArR;
    Alfavit, m, n : string;
    i : integer;

begin
  m := 'abc';
  n := 'cba';
  Alfavit := 'abcdefghijklmnopqrstuvwxyz';
  for i := 1 to length(m) do
    a[m[i]] := a[m[i]] + 1;
  i := 0;
  for i := 1 to length(n) do
    b[n[i]] := b[n[i]] + 1;
  i := 0;
  for i := 1 to length(Alfavit) do
      if (b[Alfavit[i]] > a[Alfavit[i]]) then
        write('nelzy', ' ', a[Alfavit[i]], ' ', b[Alfavit[i]]);
end.
Romakip's picture

С функцией и числами не получилось

vedro-compota's picture

какими числами?

_____________
матфак вгу и остальная классика =)