Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
skybeast
13.11.2020 16:35 •
Информатика
Дано трехзначное число. напишите программу, которая определяет есть ли среди цифр заданого целого трехзначного числа одинаковые цифры.
Показать ответ
Ответ:
DarkPear
21.07.2020 07:30
var
a,i : integer;
b : array [1..3] of integer;
begin
readln (a);
for i := 1 to 3 do
begin
b[i] := a mod 10;
a := a div 10;
end;
If (b[1] = b[2]) or (b[2] = b[3])
or (b[1] = b[3]) then
writeln ('Есть одинаковые цифры')
else
writeln ('Нет');
readln ();
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sashattop
20.12.2020 05:46
в этой цепочке предыдущая буква перед каждой y – дой ү — буква r. в этой цепочке четвёртая буква после каждой w - буква yr wr n. os y a w p...
pollyholly123
03.01.2021 13:19
Найти первое положительное число и его номер. программа должна выдавать одно из следующих сообщений...
khmelevaya
17.06.2020 05:49
Заверши работу с файлами каталога d: \документыфото 2017 природа, пользовател. поднялся на триуровня нерх, потом спустился в каталог информатикаи после этого спустился в каталог...
Anif
27.11.2022 18:21
Компютерлік эргономика дегеніміз не?...
Мэри6669
06.01.2020 12:49
Вычислите (1-1/2^2)*(1-1/3^2)*...(1-1/100^2) C++...
РыжаяЛисичка7
01.04.2021 09:23
Составить таблицу соответствия между весом в фунтах и весом в килограммах для значений от 1 до 10 фунтов с шагом 1. 1 фунт = 400 граммов. (на языке Python)...
kiert
27.04.2022 11:33
Хэлп 20 запишите последовательность двадцати чисел натурального ряда, начиная от единицы, для позиционных систем с основаниями 2, 3, 5, 8. оформите результаты в виде таблицы...
gulser
31.08.2020 13:56
Написать на qbasic программу для вычисления произведения наибольшего и наименьшего из трех чисел. числа вводятся с клавиатуры....
trollotrollovit
21.11.2021 06:33
Каковы при птиц к жизни в водной и околоводной средах обитания?...
020324
21.11.2021 06:33
Многие птицы, которые добывают пищу далеко от гнезда, гнездятся колониями (чайки, ласточки, грачи и др.). Какие преимущества при этом имеют птицы?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a,i : integer;
b : array [1..3] of integer;
begin
readln (a);
for i := 1 to 3 do
begin
b[i] := a mod 10;
a := a div 10;
end;
If (b[1] = b[2]) or (b[2] = b[3])
or (b[1] = b[3]) then
writeln ('Есть одинаковые цифры')
else
writeln ('Нет');
readln ();
end.