Задать вопрос

Ввести натуральное число и определить, какие цифры встречаются несколько раз. Пример: Введите число > = 0: 2323 Повторяются: 2, 3

+1
Ответы (1)
  1. 26 мая, 11:45
    0
    program zz1;

    var s, n, k, k1, p:integer; / / задаем переменные целого типа

    begin

    write (' введите натуральное число ');

    read (n); / / вводим с клавиатуры число

    s:=0;

    while n>0 do / / организуем цикл, пока в числе есть цифры

    begin

    k:=n mod 10; / /получаем последнюю цифру

    s:=n; / / запоминаем n

    while s>0 do / / организуем цикл, пока в числе есть цифры

    begin

    k1:=s mod 10; / / получаем последнюю цифру

    s:=s div 10; / / отбрасываем ее

    if k = k1 then p:=p+1;

    end;

    if p>1 then write (k,' '); p:=0; / / выводим ответ

    n:=n div 10; / /отбрасываем ее

    end;

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Ввести натуральное число и определить, какие цифры встречаются несколько раз. Пример: Введите число > = 0: 2323 Повторяются: 2, 3 ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
1) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. 2) Ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры (не обязательно стоящие рядом).
Ответы (1)
Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе введите номер месяца: - 2 введите номер месяца: 2 введите номер месяца: 11 в этом месяце 28 дней в этом месяце 30 дней Вы вводили неверно 1 раз Вы вводили неверно 1
Ответы (1)
Ввести натуральное число и определить, какие цифры встречаются несколько раз. Язык: Pascal
Ответы (1)
Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until
Ответы (1)
Ввести с клавиатуры координаты двух точек а и в на плоскости вещественный числа вычислить длину. программу нужно написать в паскале пример, как должно получиться введите координаты точки а 5.5 3.5 введите координаты точки b 1.5 2 длинна отрезка ab=4.
Ответы (1)