Question

Ответьте пожалуйста на 5, заранее спасибо.

Answer 1

//PascalABC.NET
var
    m : integer;
begin
// Зарезервируем массив [0..9] для подсчета повторов
    var a := ArrFill(10, 0);
// Запрос пользователю ввести положительное число
    repeat
        m := ReadlnInteger('Введите 0 или положительное число ')
    until m >= 0;
// Подсчет количества повторяющихся цифр
    while m > 0 do begin
        a[m mod 10] += 1;
        m := m div 10
    end;

// Найдем в массиве повторы от 2 и более раз?
    if a.FindIndex(x -> x>=2) = -1 then
// Повторов не найдено. Вывод сообщения
        writeln('Нет повторов.')
    else begin
// Повторы есть.
        write('Повторяются: ');
// Выведем повторяющиеся цифры
        for var i := 0 to 9 do
            if a[i] > 1 then write(i, ' ')
    end
end.