Заданы две строки А и В. Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми? формат входных данных
первая строка входного файла содержит строку A состоящую из строчных букв английского алфавита (1<=|B|<=1000).
вторая строка содержит строку B в таком же формате
формат выходных данных
Ответы на вопрос
Ответил Gleb1Kosyrev
0
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
Новые вопросы
Физика,
2 года назад
Математика,
2 года назад
Алгебра,
9 лет назад
Математика,
9 лет назад
Алгебра,
10 лет назад