Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n. P. S. На языке паскаль.

program test;

var n, m, k: integer;

sn, sm, ch: string;

begin

writeln ('Введите числа m и n через пробел');

readln (m, n);

str (n, sn); / /преобразование числа n в строку

str (m, sm); //преобразование числа m в строку

for i:integer:=1 to length (sm) do / /цикл поиска одинаковых цифр

/ / + вложенный цикл удаления найденных цифр из строки sn (из числа n)

begin

ch:=copy (sm, i, 1); //в ch поочередно помещаются цифры первого числа;

//если очередная цифра есть во втором числе, то выводится сообщение

if pos (ch, sn) >0 then writeln (ch, ' входит в состав числа ', n);

k:=1;

//Цикл удаления найденной совпадающей цифры из строки sn (из числа n)

while k0 do

begin

k:=pos (ch, sn);

delete (sn, k, 1);

end

end

end.