Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми

@sasalamio · Регистрация: 21.12.2012

Доброго времени суток друзья! В общем нужно решить 6 задач. Кто может проявить инициативу? Естественно за вознаграждение.

Вот:

2. Заданы две строки А и В. Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми?

За ранее спасибо.

@CodeR · 21.12.2012, 08:57

Pascal

Var a,b:string;
    i:byte;
Begin
    write('Введите строку A: ');readln(a);
    write('Введите строку B: ');readln(b);
    if Length(a)=Length(b) then
    Begin
      For i:=1 to Length(a) do
       Delete(b,Pos(a[i],b),1);
      writeln(b='');
    End
    else writeln('False');
    readln;
End.

Как то так...

@sasalamio 0 / 0 / 0 Регистрация: 21.12.2012 Сообщений: 8
		1
	Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми 21.12.2012, 08:14. Просмотров 1100. Ответов 1 Метки нет (Все метки) Доброго времени суток друзья! В общем нужно решить 6 задач. Кто может проявить инициативу? Естественно за вознаграждение. Вот: 2. Заданы две строки А и В. Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми? За ранее спасибо. 0

Опции темы

Можно ли переставить буквы в одном из слов так , чтобы слова стали одинаковыми

Решение