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.