Определите (составьте алгоритм), есть ли среди цивр заданного целого трёхзначного числа одинаковые.

Question

Информатика

Аксюха

6 марта, 12:42

Определите (составьте алгоритм), есть ли среди цивр заданного целого трёхзначного числа одинаковые.

+5

Ответы (1)

Знаете ответ на вопрос?

Лексей · Answer 1

Для Н=100 По 999 Цикл

Стр = Формат (Н, "ЧРГ=; ЧГ=") ;

Ч1 = Лев (Стр, 1) ;

Ч2 = Сред (Стр, 2,1) ;

Ч3 = Сред (Стр, 3,1) ;

Если Не (Ч1 = Ч2 Или Ч1 = Ч3 Или Ч2 = Ч3) Тогда

Сообщить (Н) ;

КонецЕсли;

КонецЦикла;