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

Question

Информатика

Васс

2 декабря, 17:19

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

+5

Ответы (1)

Знаешь ответ?

Иннушка · 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.