Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
сонечка3332002
06.02.2023 14:28 •
Информатика
Ввести натуральное число и определить, какие цифры встречаются несколько раз. пример: введите число > = 0: 2323 повторяются: 2, 3
Показать ответ
Ответ:
женя1084
01.10.2020 18:51
Var
a, c : integer;
con, rep : array [0..9] of boolean;
begin
read (a);
while a > 0 do
begin
c := a mod 10;
a := a div 10;
if not con[c] then con[c] := true
else rep[c] := true;
end;
for c := 0 to 9 do
if rep[c] then write (c, ' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gulya104
03.06.2020 14:21
Пользователь вводит символ,а затем 10 слов,вывести эти слова через указанный символ (и пробелы) в: а. прямом порядке через слово b. первые 5 слов в обратном порядке ...
полнаума
07.03.2023 13:44
көмек көмек жалынам тезз >...
rukisha1107
16.08.2022 20:42
Напишите программу, которая будет считывать 5 слов ввода пользователем и выводить You have entered: (слово 1), (слово 2), (слово 3), (слово 4), (слово 5). . Пунктуация обязательна....
moschkovaddascha
06.08.2020 00:21
Программа на языке СИ . Дано натуральное число n (n 10000). Определить, является ли это число палиндромом (перевертышем) с учетом четырех цифр, как, например, числа 2222, 6116,...
Viktoria1289
05.10.2020 19:22
В будь-яку клітинку електронної таблиці можна ввести ...Робоча книгаТекст, число або формулаРобочий аркушТільки числа та формули...
roman81rudi
16.12.2021 07:21
Используя вс алгоритмы, нарисуйте:...
ник41111
09.07.2022 06:17
Для передачи секретного сообщения используется код, состоящий только из русских букв (всего используется 30 различных символов). При этом все символы кодируются...
pomogite361
29.10.2022 17:26
1. Түр блогының қандай командаларын білесіздер? 2. Фон таңдалып тұрған жағдайда, кандай скриптерлер блогында командалар болмайды? 3. Диалог барысында фон мен анимация жасауға бола...
Dariya078
15.10.2020 09:48
Что пропущено в ряду: Символ - .. - строка - фрагмент текста ? * 1)слово 2)предложение 3)абзац 4)страница Петя набирал текст на компьютере. Внезапно все буквы, которые он набирал,...
Гульжа1234
17.04.2023 18:15
вычислить значения функция f=1/[(x+1)(x2+1)1/2] где x изменяется на отрезке от a=0.0 до b=0,6 с шагом H=0,05...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a, c : integer;
con, rep : array [0..9] of boolean;
begin
read (a);
while a > 0 do
begin
c := a mod 10;
a := a div 10;
if not con[c] then con[c] := true
else rep[c] := true;
end;
for c := 0 to 9 do
if rep[c] then write (c, ' ');
end.