Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Адриана111111111
20.01.2023 03:42 •
Информатика
Ввести натуральное число и определить, какие цифры встречаются несколько раз. с repeat until
Показать ответ
Ответ:
DIMAES0
22.09.2020 09:46
Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
svetlana2017711
01.02.2023 13:59
Вычислить сумму льгот по налогу на доход, если известны: сумма вычеты на работника и каждого иждивенца, количество иждивенцев, сумма дохода, количество месяцев, за которые получен...
GETRRRR
06.07.2021 20:11
Создать массив и вывести его элементы в обратном порядке ,кратные 5.элементы массива вводятся через список...
SASHA123741852
16.10.2020 00:39
Это кумир 1. составить алгоритм для нахождения мощности. 2. составить алгоритм для вывода на экран всех чисел до 70, кратных семи, и их суммы. 3. составить алгоритм бота для общения....
VafaMurad
28.03.2021 22:01
Вкоробке лежат 42 кубика все кубики разного цвета. сколько бит информации несет сообщение о том, что достали красный кубик?...
Anna1111251
09.05.2020 09:54
Что получится в результате действий исполнителя чертежник по следующему алгоритму? использовать чертежник алг рисунок нач сместиться в точку (1, 1) нц 4 раз опустить перо сместиться...
nikita1247
01.02.2023 01:20
Вини-пух разлил 60 литров мёда в 9 горшков двух видов - вместимостью 4 и 8 литров.сколько горшочков каждого вида занял вини-пух...
Anastasiya3434
01.02.2023 01:20
По turbo pascal заполнить massive a: array; [ 1..15 ] of char; символами- буквами латинского алфавита под a до 15 латинскме буквы. распечатать на экран данный массив в обратном порядке....
swvw
01.02.2023 01:20
Укажите какой файл вы откроете чтобы просмотреть демонстрационный ролик...
какахааа
09.09.2022 16:10
Даны натуральные числа x и y. вычислить произведение x*y, используя лишь сложение. язык программирования: паскаль....
jamashkinpavel
09.09.2022 16:10
Сколько символов содержится в алфавите, при которого написана книга из 20 страниц, на каждой из которых содержится 15 строк по 20 символов и занимает в памяти компьютера вся книга...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.