Вопрос по информатике:
Напечатать все 4-х значные числа,в десятичной записи которых нет двух одинаковых цифр.Написать программу,СРОЧНО!!!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 20.01.2018 15:19
- Информатика
- remove_red_eye 16694
- thumb_up 43
Ответы и объяснения 1
Для Н=1000 По 9999 Цикл
Стр = Формат(Н, "ЧРГ=; ЧГ=");
Ч1 = Лев(Стр,1);
Ч2 = Сред(Стр,2,1);
Ч3 = Сред(Стр,3,1);
Ч4 = Прав(Стр,1);
Если Не (Ч1 = Ч2 Или Ч1 = Ч3 Или Ч1 = Ч4 Или Ч2 = Ч3 Или Ч2 = Ч4 Или Ч3 = Ч4) Тогда
Сообщить(Н);
КонецЕсли;
КонецЦикла;
- 21.01.2018 03:48
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.