Question

Будем называть два числа дружественными, если они состоят из одних и тех же цифр. Например, числа 1132 и 32321 является дружественными, а 12 и 123 нет (в первом числе нет цифры 3). Напишите программу, определяющую являются ли два заданных числа дружественными. Входные данные: Ввести два целых числа A и B, разделенных одним пробелом, (0 Выходные данные: Вывести сообщение YES, если A и B являются дружественными, или NO, если не являются.

Answer 1

Ответ:

program Friendly;

uses

 SysUtils;   // для IntToStr

var

 a, b, i, pa, pb: LongInt;

 sa, sb: string;

 f: Boolean;

begin

 Write ('A, B = ');

 ReadLn (a, b);

 sa := IntToStr (a);

 sb := IntToStr (b);

 f := True;

 for i := 0 to 9 do begin

   pa := Pos (IntToStr (i), sa);

   pb := Pos (IntToStr (i), sb);

   if ((pa <> 0) and (pb = 0)) or ((pa = 0) and (pb <> 0)) then begin

     f := False;

     Break;

   end;

 end;

 if f then

   WriteLn ('YES')

 else

   WriteLn ('NO');

 ReadLn;

end.

Answer 2

Вот пример программы на языке Python, которая определяет, являются ли два заданных числа дружественными:

pythonCopy code
def are_numbers_friendly(a, b):
    # Преобразуем числа в строки
    str_a = str(a)
    str_b = str(b)
    
    # Проверяем, что все цифры числа A присутствуют в числе B
    for digit in str_a:
        if digit not in str_b:
            return False
    
    # Проверяем, что все цифры числа B присутствуют в числе A
    for digit in str_b:
        if digit not in str_a:
            return False
    
    # Если все проверки пройдены, числа являются дружественными
    return True


# Считываем входные данные
a, b = map(int, input().split())

# Проверяем, являются ли числа дружественными
if are_numbers_friendly(a, b):
    print("YES")
else:
    print("NO")

Вы можете ввести два числа через пробел, и программа выдаст ответ "YES", если числа являются дружественными, и "NO", если не являются.