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.