Дано трёхзначное число. Определить: а) верно ли, что все его цифры одинаковые; б) есть ли среди его…
Дано трёхзначное число. Определить: а) верно ли, что все его цифры одинаковые; б) есть ли среди его цифр одинаковые. Для Dev C++!
Определите (составьте алгоритм), есть ли среди цивр заданного целого трёхзначного числа одинаковые.
Ищете ответы на вопрос по Определите (составьте алгоритм), есть ли среди цивр заданного целого трёхзначного числа одинаковые. для 5 - 9 класс? На странице собраны решения и советы по предмету Информатика, а также обсуждения от других участников. Ответы на этот вопрос уже есть. Вы можете задать свой вопрос, а также стать частью нашего сообщества экспертов.
Для Н=100 По 999 Цикл
Стр
= Формат(Н, «ЧРГ=; ЧГ=»);
Ч1
= Лев(Стр,1);
Ч2
= Сред(Стр,2,1);
Ч3
= Сред(Стр,3,1);
Если
Не (Ч1 = Ч2 Или Ч1 = Ч3 Или Ч2 = Ч3) Тогда
Сообщить(Н);
КонецЕсли;
КонецЦикла;