Задача 8 Урок 17
Primary tabs
Проверить можно ли строки из m перестановкой символов получить строку n.
program u17z8; var a,b: string; i,j,n: integer; q: boolean; begin writeln('vvedite stroku a:'); readln(a); writeln('vvedite stroku b:'); readln(b); if length(a)<>length(b) then writeln('No') else begin for i:=1 to length(a) do begin for j:=1 to length(b) do begin if a[i]=b[j] then begin q:=true; break; end else q:=false; end; if q=false then break; end; if q then writeln('Yes') else writeln('No'); end; readln; end.
- Log in to post comments
- 340 reads