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.