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

входные данные: ввести два целых числа a и b, разделенных одним пробелом, (0
выходные данные: вывести сообщение yes, если a и b являются дружественными, или no, если не являются.

ответ:

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.

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

койка, стройка, трест, рой, репа, тройка, река, серп,строка.