Вопрос по информатике:
Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры
Пожаловаться
- 18.07.2018 08:41
- Информатика
- remove_red_eye 14508
- thumb_up 40
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
Range(1,ReadInteger('K=')).Where(n->Pos('7',n.ToString)>0).Println
end.
Пример
K= 80
7 17 27 37 47 57 67 70 71 72 73 74 75 76 77 78 79
// Внимание! Если программа не работает, обновите версию!
begin
Range(1,ReadInteger('K=')).Where(n->Pos('7',n.ToString)>0).Println
end.
Пример
K= 80
7 17 27 37 47 57 67 70 71 72 73 74 75 76 77 78 79
Пожаловаться
- 19.07.2018 02:57
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы