Определить,являются ли 2 слова дружественными.

@Оленьк@ · Регистрация: 16.04.2010

Студворк — интернет-сервис помощи студентам

Два слова назовем дружественными,если из букв одного можно
составить другое и из букв второго составить первое.Даны два
слова.Будут ли они дружественными?

@Inadequate · 04.06.2010, 08:58

Оленьк@, будет примерно следующее

Pascal

var
  a: array [0..255] of byte;
...
  for i := 1 to Length(s1) do
    Inc(a[ord(s1[i])]);
  for i := 1 to Length(s2) do
    Dec(a[ord(s2[i])]);
  f := true;
  for i := 0 to 255 do
    if a[i] < 0 then
    begin
      f := false;
      break;
    end;
  WriteLn(f);
...

Если конечно в условии ничего не напутано (а чем я сильно сомневаюсь).

@Оленьк@ · 04.06.2010, 09:22 **[ТС]**

спасибо

@Оленьк@ 1 / 1 / 0 Регистрация: 16.04.2010 Сообщений: 33
		1
	Определить,являются ли 2 слова дружественными. 04.06.2010, 08:49. Показов 1407. Ответов 2 Метки нет (Все метки) Два слова назовем дружественными,если из букв одного можно составить другое и из букв второго составить первое.Даны два слова.Будут ли они дружественными? 0

@Оленьк@ 1 / 1 / 0 Регистрация: 16.04.2010 Сообщений: 33
	04.06.2010, 09:22 [ТС]	3
	спасибо 0

Опции темы

Определить,являются ли 2 слова дружественными.

Решение