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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 9. Даны два натуральных числа m и n. Проверить, есть ли в записи числа m цифры, одинаковые с цифрами в записи числа n. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-4/zad3/9 98

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

Преобразуем числа 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.