Question

Дано число N.Найти количество чисел в интервале от 1 до N ,являющихся перевёртышами-при выписывании их цифр в обратном порядке получается тоже самое число.

Answer 1

Var
   N,A,B:longint;
   k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    A:=N;
    B:=0;
    While A > 0 do
       Begin
       B:=B*10+(A mod 10);
       A:=A div 10
       End;
    if B=N then k:=k+1
    End;
WriteLn('Искосое количество: ',k)
End.

Answer 2

Для решения этой задачи, нам нужно перебрать все числа от 1 до N и проверить, являются ли они "перевёртышами". Давайте напишем программу для этого.

Вот пример программы на Python:

pythonCopy code
def is_palindrome(num):
    return str(num) == str(num)[::-1]

def count_palindromes(N):
    count = 0
    for i in range(1, N + 1):
        if is_palindrome(i):
            count += 1
    return count

# Замените значение переменной N на желаемое
N = 1000
result = count_palindromes(N)

print(f"Количество перевёртышей в интервале от 1 до {N}: {result}")

Эта программа использует две функции:

1. is_palindrome(num) - проверяет, является ли число num перевёртышем.
2. count_palindromes(N) - перебирает числа от 1 до N и считает количество перевёртышей.

Вы можете заменить значение переменной N на нужное вам число, чтобы найти количество перевёртышей в другом интервале. Запустите эту программу в среде, поддерживающей Python, и она выведет результат.