Ввести натуральное число и определить, какие цифры встречаются несколько раз. Язык: Pascal.

Для того чтобы решить задачу на языке Pascal и определить, какие цифры встречаются несколько раз в числе, можно использовать следующий подход:

1. Ввести натуральное число.

2. Преобразовать его в строку или работать с каждой цифрой поочередно.

3. Использовать массив или другой способ для подсчета встречаемости каждой цифры.

4. Вывести те цифры, которые встречаются более одного раза.

Пример кода:

pascal
Копировать код
program RepeatedDigits;
var
  num: integer;
  count: array[0..9] of integer;  { Массив для подсчета каждой цифры }
  i, digit: integer;
begin
  { Инициализируем массив, чтобы все значения были равны 0 }
  for i := 0 to 9 do
    count[i] := 0;
  { Вводим число }
  writeln('Введите натуральное число:');
  readln(num);
  { Обрабатываем число по цифрам }
  while num > 0 do
  begin
    digit := num mod 10;  { Получаем последнюю цифру числа }
    count[digit] := count[digit] + 1;  { Увеличиваем счетчик этой цифры }
    num := num div 10;  { Удаляем последнюю цифру }
  end;
  { Выводим цифры, которые встречаются несколько раз }
  writeln('Цифры, которые встречаются несколько раз:');
  for i := 0 to 9 do
  begin
    if count[i] > 1 then
      writeln('Цифра ', i, ' встречается ', count[i], ' раз(а)');
  end;
end.

Объяснение кода:

1. Массив count[0..9] используется для подсчета числа вхождений каждой цифры (от 0 до 9).

2. Цикл while num > 0 do обрабатывает число, извлекая его цифры с помощью операции mod 10 (получаем последнюю цифру), а затем удаляет последнюю цифру с помощью операции целочисленного деления div 10.

3. В конце программа проверяет массив и выводит те цифры, которые встречаются более одного раза.

Когда программа выполнится, она выведет на экран цифры, которые повторяются в введенном числе.