Question

Найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. K вводится с клавиатуры

Answer 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

Answer 2

Для решения данной задачи, необходимо найти и вывести на экран все целые числа из промежутка от 1 до K, в десятичной записи которых есть цифра 7. Значение K будет введено с клавиатуры.

Алгоритм решения:

1. Вводим значение K с клавиатуры. 2. Инициализируем переменную i со значением 1. 3. Запускаем цикл, который будет выполняться до тех пор, пока i не превысит значение K. 4. Внутри цикла проверяем, содержит ли число i цифру 7 в десятичной записи. 5. Если число i содержит цифру 7, выводим его на экран. 6. Увеличиваем значение i на 1 и переходим к следующей итерации цикла. 7. По достижении i значения K, завершаем выполнение цикла.

Пример кода на Python:

```python K = int(input("Введите значение K: "))

for i in range(1, K+1): if '7' in str(i): print(i) ```

Пожалуйста, обратите внимание, что в данном примере мы используем функцию `input()` для ввода значения K с клавиатуры, а затем преобразуем его в целое число с помощью функции `int()`. Затем мы используем цикл `for` для перебора всех чисел от 1 до K и проверяем, содержит ли число 7 в своей десятичной записи с помощью оператора `in`. Если число содержит цифру 7, мы выводим его на экран с помощью функции `print()`.

Пример работы программы: ``` Введите значение K: 20 7 17 ```

Пожалуйста, попробуйте этот код и дайте мне знать, если у вас возникнут какие-либо вопросы!