Урок 17 Задача 08
Primary tabs
Проверить можно ли строки из m перестановкой символов получить строку n.
Примеры (входные данные и ответ):abc и bca-- можно
abc и baa-- нельзя
abcc и cbac-- можно
abc4c и cb55ac-- нельзя
Решение:
program u17z08; var m,n,k:string; i,j,count:integer; begin m:='abcc'; n:='cbac'; count:=0; for i:=1 to length(m) do begin for j:=1 to length(n) do begin if m[i]=n[j] then begin k:=k+n[j]; break; end; end; end; if m=k then write('Mozhno') else write('Nelzya'); readln(); end.
Консоль:
Mozhno
- Log in to post comments
- 358 reads