Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Kryuchochek02
03.02.2021 15:39 •
Информатика
Дано натуральное число n. определить, верно ли, что это число содержит ровно три одинаковые цифры. решите алгоритмом
Показать ответ
Ответ:
Сяй
12.07.2020 10:55
Var
a,b,c,x:integer;
begin
write('Введите трехзначное число. X=');
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln('Верно!')
else writeln('Не верно');
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
KoteikaOneLove
07.05.2023 16:33
Вкоробке 12 шариков – 3 белых, 4 красных, 5 синих. определить полную (среднюю) информацию для сообщения об извлечении шарика какого-либо цвета. найти частную информацию...
yana8889
07.05.2023 16:33
Сочинить сказку или рассказ о средстве информации...
gopnik66
07.05.2023 16:33
Заданы 2 числа n и k. необходимо найти остаток от деления n на k...
ЮлияК111111
12.11.2022 10:47
найти сумму элементов с к1 по к2, где k1 и K2 вводится с клавиатуры. Проверить корректность их ввода Python...
rensatkontri
24.05.2023 06:26
1. Что такое цикл с постусловием? Приведите пример. 2. Какие виды циклов вы знаете?3. С какого оператора можно описать циклс постусловием на языке С++?4. В каких случаях...
Crazy2daisy
10.12.2022 06:19
Напишите программу для определения Двух последних цифр введённого пользователем числа больше чем двузначными быстрее ...
Taekook19
14.10.2021 19:43
Задание 2 У исполнителя Омега две команды, которым присвоены номера: 1. прибавь 5; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них,...
sv5080
07.08.2020 20:11
10. углеводород содержит 93,3% углерода и 7,7% водорода, плотность при н.у. 1,161 г/л. формула углеводорода...
Nusyaa
07.08.2020 20:11
Посмотрите в окно. какая погода сегодня на улице?...
NonaANDnana
07.08.2020 20:11
Диаметр круга равен 3.5 м. найдите его площадь. вот формула: s=dr в квадрате. d=2r...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,b,c,x:integer;
begin
write('Введите трехзначное число. X=');
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln('Верно!')
else writeln('Не верно');
readln;
end.