Урок 16 (Решенная задача номер 7)
Primary tabs
Урок 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.
- Log in to post comments
- 1292 reads
Romakip
Thu, 10/22/2020 - 19:15
Permalink
С функцией и числами не получилось
С функцией и числами не получилось
vedro-compota
Fri, 10/23/2020 - 14:32
Permalink
какими числами?
какими числами?
_____________
матфак вгу и остальная классика =)