Определите (составьте алгоритм), есть ли среди цивр заданного целого трёхзначного числа одинаковые.
Ответы
Ответ дал:
0
Для Н=100 По 999 Цикл
Стр = Формат(Н, "ЧРГ=; ЧГ=");
Ч1 = Лев(Стр,1);
Ч2 = Сред(Стр,2,1);
Ч3 = Сред(Стр,3,1);
Если Не (Ч1 = Ч2 Или Ч1 = Ч3 Или Ч2 = Ч3) Тогда
Сообщить(Н);
КонецЕсли;
КонецЦикла;
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад