Задача 8 Урок 17
Primary tabs
Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):
abc и bca
-- можно
abc и baa
-- нельзя
abcc и cbac
-- можно
abc4c и cb55ac
-- нельзя
var s1, s2: string; i, j, k, k1: integer; begin s1 := '767'; s2 := '776'; k := 0; k1 := 0; for i := 1 to length(s1) do begin for j := 1 to length(s2) do begin if s1[j] = s1[i] then inc(k); if s2[j] = s1[i] then inc(k1); end; if (k <> k1) then break; end; writeln((k = k1) and (length(s1) = length(s2))); readln(); end.
КОНСОЛЬ
TRUE
- Log in to post comments
- 666 reads