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

133

317

Посмотреть ответы 2

Ответы на вопрос:

Solnyshko8080

Другие предметы

4,4(5 оценок)

uses crt;
var m,n:integer;
    mm,mn:set of byte;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 9999');
readln(m,n);
until(m>0)and(m<10000)and(n>0)and(n<10000);
mm:=[];
while m>0 do
begin
  mm:=mm+[m mod 10];
  m:=m div 10
end;
mn:=[];
while n>0 do
begin
  mn:=mn+[n mod 10];
  n:=n div 10
end;
if mm*mn<>[] then write('В этих числах есть одинаковые цифры')
else write('В этих числах нет одинаковых цифр');
readln
end.