Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
помогитесдомашкой3
28.05.2023 06:19 •
Информатика
Найти количество различных цифр данного натурального числа
Показать ответ
Ответ:
Аполлинарияполишка
29.06.2020 18:24
Uses crt;
var i,ans:integer;
s:string;
u:set of char;
begin
read(s);
for i:=1 to length(s) do
if not(s[i] in u) then begin
inc(ans);
u:=u+[s[i]];
end;
writeln(ans);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aynaaaaa
24.11.2021 05:06
Информатика с тестом 1) Какое значение переменная Х будет иметь после выполнения фрагмента программы? А: = 2 В: = 3 Х:= А+2*В Варианты ответов 5 7 8 4 2) Переменная в программировании...
vitaliygrg
10.04.2023 10:30
Во Какое число появится в ячейке C3, если формулу из ячейки A1 скопировать в ячейку В1?=СРЗНАВведите правильный вариант ответа:...
AMeleschckina2
16.05.2023 21:17
Алгоритм не може виконувати (декілька відповідей)1 людина2 будинок3 камінь4 Пристрій5 комп ютер...
migmo5
30.03.2021 10:12
Информационный объем фотографии состовляет 1 миллион байт и она размещается в 2 мегапикселях. сколько различных цветов может быиь представлено на фотографии?...
Ol3ksa
22.10.2022 09:33
Напишите код в HTML для создания веб-страницы со следующим контентом: 1. HTML версия: 5 2. Язык: польский 3. Название страницы: Работа с ПК” 4. Ключевые слова: выберите 4...
нина655
30.07.2020 13:05
Электрон начинает двигаться из одной точки электрического поля в другую.какую скорость движения приобрете электрон если напряжение между этими точками u=4,1в.масса электрона...
natali2613
30.07.2020 13:05
решите с уравнения в библиотекебыло 125 книг по матиматике после того как учащиеся взяли несколько книг а потом 3 книги вернули их стало 116 сколько всего книг брали учащиеся...
AnastasiaBA
30.07.2020 13:05
Where do you buy clothes? who do you buy clothes with? how often do you buy clothes?...
Аккаунт удален
30.07.2020 13:05
Look at symbols then read the weather forecast and fill in the gaps with the words from the list....
lenakors1997
30.07.2020 13:05
Всем ! задали по сочинить сказку про деда мороза может кто как правильно сочинить что то в голову ни чего не лезет....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,ans:integer;
s:string;
u:set of char;
begin
read(s);
for i:=1 to length(s) do
if not(s[i] in u) then begin
inc(ans);
u:=u+[s[i]];
end;
writeln(ans);
end.