Работа 3.4 Упр.9 Задание 3 ГДЗ Семакин 10 класс (Информатика)

Задача

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

Подробный ответ

Преобразуем числа m и n в строки и будем поочерёдно просматривать цифры числа m. Для каждой цифры проверим, встречается ли она в записи числа n. Если хотя бы одна общая цифра найдена, то выводим, что одинаковые цифры есть, иначе — что их нет.

var
  i, m, n: integer;
  found: boolean;
  sm, sn: string;
begin
  Writeln(‘Введите через пробел два натуральных числа: ‘);
  Read(m, n);
  Str(m, sm);
  Str(n, sn);
  found := False;
  for i := 1 to Length(sm) do
    if Pos(sm[i], sn) > 0 then
    begin
      found := True;
      break;
    end;
  if found then Writeln(‘Есть одинаковые цифры’)
  else Writeln(‘Нет одинаковых цифр’)
end.