Дано число n.найти количество чисел в интервале от 1 до n ,являющихся перевёртышами-при выписывании их цифр в обратном порядке получается тоже самое число.
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.
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.