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

Ответы 1

  • Var   N,A,B:longint;   k:integer;Begink:=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.
    • Автор:

      scarlet
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years