Question

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

Answer 1

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

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

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

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

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

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

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

                               КонецЕсли;

                              

                КонецЦикла;