Question

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

P.S. На языке паскаль.

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

Var
 a,b,i,j:integer;
begin
 read(a,b);
 for i:=1 to length(inttostr(a)) do
  for j:=1 to length(inttostr(b)) do
  if inttostr(a)[i]=inttostr(b)[j] then
   begin;
    writeln('Есть');
    exit;
   end;
 writeln('Нет');
end.

Пример ввода:
123
345
Пример вывода:
Есть