Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
NastyaD05
14.11.2021 10:39 •
Информатика
Дано натуральное четырехзначное число n.определите все ли цифры в числе различны! завтра сдавать
Показать ответ
Ответ:
катя184
10.07.2020 17:42
Var
n: integer;
c: set of integer;
b: boolean;
begin
readln(n);
b := true;
while (n <> 0) and b do begin
b := b and (not ((n mod 10) in c));
c := c + [n mod 10];
n := n div 10;
end;
if b then writeln('различны')
else writeln ('нет');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
lub3
15.02.2020 13:14
Сделать это в pascal, чтобы можно было выполнить все условия используя следующий фрагмент программы, преобразуйте массив x по указанному ниже правилу, воспользовавшись массивом y...
Tictax
15.02.2020 13:14
Разработать схему алгоритма, который вводит массив из n целых чисел и выводит номера отрицательных элементов и сами эти элементы. протестировать алгоритм для следующих массивов: а)...
gruttt
15.02.2020 13:14
Пусть вводится последовательность символов длиной не более 4. если все вводимые символы — цифры, то выполните преобразование данной последовательности в целое число. паскаль....
KOTEНОКGAB
28.09.2021 20:36
Какие формы представления графической информации ты можешь назвать?...
makareevakarina17
10.02.2022 10:33
Во время ремонта корабля потребовалось заделать пробоину в обшивке. имеется лист стали. удастся ли с его заделать пробоину? таблицой если можно,...
ivanes
28.12.2022 21:53
Ввести три числа. вывести каждое число, заменив на целую часть от деления на 3 использовать свою функцию, которая не возвращает значение. с++...
mishka1113
05.04.2021 13:11
с доказательствами,что бы я был уверен ,что ответ дан верно...
qwertzasd
28.09.2020 10:49
5-тапсырма. Мәтіннен тірек сөздерді тауып, қандай сөздермен тіркесіп тұрғанын анықта. Ол сөздерді қатыстырып сөйлем құра.Үлгі:1. Тірек сөз —Энергия.2. Мәтінде «үнемдеу» сөзімен тіркескен:...
gidra2281337
15.03.2020 04:30
Мугалим окушыга 500мл еритинде 8г натрий гидроксиды еритилгенин айтты. окушынын мугалимнен алган еритиндинин концентрациясы кандай? жаупты есеппен далелде....
Education26
29.01.2022 01:27
Ыңдайық және жауап 4. Сөйлемдерді оқы. Дұрыс немесе бұрыс екенін анықта.1. Қаскейлер киіктерді атады.2. Киіктердің мүйізін қаскөйлер сатып алады.3. Киіктер жұқпалы аурумен жиі ауырады.4....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n: integer;
c: set of integer;
b: boolean;
begin
readln(n);
b := true;
while (n <> 0) and b do begin
b := b and (not ((n mod 10) in c));
c := c + [n mod 10];
n := n div 10;
end;
if b then writeln('различны')
else writeln ('нет');
end.