Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
hdblin530
24.02.2023 00:26 •
Информатика
Дано натуральное четырехзначное число n.определите все ли цифры в числе различны! завтра сдавать
Показать ответ
Ответ:
tyomking
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 оценок)
Популярные вопросы: Информатика
vikaiero13
20.08.2022 01:31
Составить блок-схему и программу для вычисления значения функции Вариант 4 https://distanciy.ucoz.net/_nw/3/39020635.jpg...
OMG1234567890
08.09.2022 19:27
Выполните алгоритм и запишите слово...
SkeetNZ
07.02.2021 00:03
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 50 символов в этой кодировке....
Якрутой111
26.04.2022 23:10
Напишите программу которая выводит случайное число в диапазоне от a до b.После этого вводится еще одно вещественное число. Выведите отдельно целую часть и дробную часть произведения...
stolbov2005
22.11.2021 03:29
По теме линейный алгоритм . pascal abc найти площадь треугольника по известным трем сторонам (по формуле герона)....
demuazheldasha2
22.11.2021 03:29
По тексту составить логическое выражение, его и ответить на вопрос . алеша, боря и гриша нашли в земле старинный сосуд. рассматривая находку, каждый высказал по два предположения:...
Kmamsmajfkf
05.04.2022 11:45
Чертёж треугольный клумбы сделан в масштабе 1: 100 длина каждой ее стороны на плане равна 4 см чему равна длина каждой стороны клумбы в действительности?...
555gm
05.04.2022 11:45
Напишите эссе на тему: моя свобода заканчивается там, где . , нужно!...
sunksy
05.04.2022 11:45
Двое рабочих,работая вместе, выполняют некоторую работу за 8ч.первый из них,работая отдельно,может выполнить всю работу за 12 ч быстрее,чем второй рабочий.за сколько часов...
greennattea
05.04.2022 11:45
Радиус двух шаров равны 8 и 15. найдите радиус шара,площадь которого равна сумме площадей их поверхностей....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.