В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Shnella
Shnella
24.06.2020 21:59 •  Информатика

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

Показать ответ
Ответ:
sedoidenis2000
sedoidenis2000
06.10.2020 03:06
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота