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

Question

Информатика

Венедиктушка

5 ноября, 04:13

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

+3

Ответы (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.