Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

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

Ответов к вопросу: 1
  • hjkkkfffllhhhlkkm
    17.07.2024 | 17:38

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

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

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

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

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

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

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

                                   КонецЕсли;

                                  

                    КонецЦикла;

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.