Будем называть два числа дружественными, если они состоят из одних и тех же цифр. например, числа 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.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

карандаш — инструмент в виде стержня, изготавливаемого из пишущего материала (угля, графита, сухих красок и т. п.) применяемый для письма, рисования, черчения.