Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sajidabonu101220071
08.01.2020 09:11 •
Информатика
Ввести натуральное число и определить, какие цифры встречаются несколько раз. пример: введите число > = 0: 2323 повторяются: 2, 3
Показать ответ
Ответ:
аришка232
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 оценок)
Популярные вопросы: Информатика
Dion111
17.05.2022 16:38
Сканируется цветное изображение размером 43,18×43,18 см. разрешающая сканера — 600×1200 dpi, глубина цвета — 24 бита. какой информационный объём будет иметь полученный...
Mild06
15.01.2023 13:05
Растровым графическим редактором не является: 1)gimp 2)paint 3)adobe photoshop 4)coreldraw...
женьшенье
07.07.2020 18:01
Что такое компьютерная сеть и можно ли избежать записи ? что такое кэш? как просмотреть...
natalika79
23.12.2021 02:45
Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. pascal abc делайте как можно проще...
Aliya5511
14.09.2020 02:42
Дана последовательность 5, 9, 13, напишите программу определения числа слагаемых, сумма которых равна 324....
qweuio
30.03.2022 11:16
Предположите последовательность рисования следующего объекта ( это пуговица с двумя отверстиями) 7 пунктов как её нарисовать в паинте...
misterbory
23.10.2022 18:43
Напишите программу,которая в последовательности целых чисел определяет 1.количество четных отрицательных чисел 2.среднее арифметическое нечётных чисел программа...
Everiya15
23.10.2022 18:43
Дана целочисленная последовательность из 50 элементов. элементы с черными номерами необходимо просуммировать и вывести среднее значение на экран....
azamaaaaa
23.10.2022 18:43
Решить на языке python 3.! последовательность состоит из натуральных чисел и завершается числом 0. определите, сколько элементов этой последовательности больше...
yaxyeu
22.05.2022 07:49
1. запишите следующие высказывания в виде логического выражения, определив простые высказывания и используя логические операции: а) на уроке информатики старшеклассники...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.