Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
10121945
09.04.2020 03:09 •
Информатика
Запишите алгоритм, позволяющий определить, есть ли среди цифр заданного целого трёхзначного числа x одинаковые записи выберите самостоятельно.
Показать ответ
Ответ:
karicristle313
02.10.2020 09:28
Program x;
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zukhra1234
03.08.2020 19:18
Контрольные вопросы: 1. Что определяет строка .modetiny в програмне типа COM? 2. Какие действия необходимо проделать для создания исполняемого файла типа COM? 3. Какие особенности...
bayramovelnur
06.12.2022 04:30
5 байт =___ бит, 4096 байт=___ Кбайт, 10 Кбайт=___бит, 3 Мбайт=___байт...
julif84
14.07.2021 12:33
Алынған хабарды қай кезде ақпарат деп есептеуге, қай кезде есептемеуге болады?...
dannovchern
24.01.2020 08:54
У Васи есть доступ к Интернету по высокоскоростному односторон- нему радиоканалу, обеспечивающему скорость получения им инфор-мации 256 000 бит/с. У Пети нет скоростного доступа...
YAN222
25.05.2020 00:39
Назовите основные категории атак. Какой тип доступа требуется для выполнения атак доступа к документам? Почему атаки перехвата выполнить труднее, чем прослушивание? Почему трудно...
lehfrb
31.07.2021 10:09
Интернетке тауелдылыктын зардаптары 8 мысал дазындаршы...
Масяня878
09.08.2021 12:00
Упростите логические выражения. Правильность упрощения проверьте с таблиц истинности для исходных и полученных логических формул. a) A v (НЕ(А)&.В); б) А &(НЕ(A) v В);...
Lizakisa777
12.05.2020 13:26
Ақпараттық қауіпсіздіктің бұзылуына әсер ету мүмкін табиғи қауіп-қатер...
Bartova2006
22.04.2020 00:08
1.Алынған хабарды қай кезде ақпарат депесептеуге, қай кезде есептемеуге болады?...
vikaiero13
06.11.2021 22:05
В школьной библиотеке 16 стеллажей с книгами, на каждом - по 8 полок. Ученику сообщили, что нужный учебник находится на 2-ой полке 4-го стеллажа. Какое кол-во информации получил...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
s:string;
begin
readln(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
writeln('есть') else writeln('нет')
end.