Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
mariii222
24.05.2021 00:58 •
Информатика
Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые
Показать ответ
Ответ:
adelina1476p0c7y7
13.08.2020 19:30
// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.
Тестовое решение:
n= 141
Есть одинаковые цифры
0,0
(0 оценок)
Популярные вопросы: Информатика
rsavka59
08.08.2021 21:36
Ккакому виду графики относится рисунок, если при изменении масштаба не изменяется качество изображения?...
il1234561
26.07.2020 22:56
8класс.информатика.напишите . надо! №1.дано целое число,если оно нечётное и при этом не находится в [10; 20],то вывести на экран квадрат этого числа.№2.определить...
agg1
26.07.2020 22:56
Чем функция сin отличается от gets в c++? если можно подробно...
kremerartem1
20.05.2021 12:50
Какое число называют дополнительным кодом двоичного числа x в N-разрядной яйчкйке...
liker271
17.07.2020 00:30
Запросы для поисковых систем с использованием логических операций 1. Вязыке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ...
dimaburkovskiy3
03.11.2020 00:35
Охарактеризуйте політику Мстислава Володимировича...
NastyaD05
02.03.2021 02:45
Буду очень благодарна укажи кліматичний пояс якому відповідає подана кліматограмаи также напиши ознаки, за яркими це можно визначити ...
belogrud98
04.04.2021 18:28
выписать 10 предложенных словосочетаний с простыми предлогами и 10 с составными предлогами из повести “детство” Горький до завтрашнего утра заранее...
MiLLkYWaY1
03.06.2022 12:57
Рассчитайте 200 г карбоната кальция CaCO3, количество (моль)...
cvetlana15a
28.12.2021 00:11
1:В планетарной модели атома характер движения электронов в атоме определяется действием на электроны Укажите правильный вариант ответа: a)гравитационных сил b)кулоновских...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var s:=ReadInteger('n=').ToString;
if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
then Writeln('Есть одинаковые цифры')
else Writeln('Нет одинаковых цифр')
end.
Тестовое решение:
n= 141
Есть одинаковые цифры