назовем число палиндромом, если оно не меняется - вопрос №3984769 от luss55 04.09.2021 04:00

Question

Информатика: назовем число палиндромом, если оно не меняется при перестановке его цифр в обратном порядке. напишите программу, которая по заданному числу k выводит количество натуральных палиндромов, не превосходящих k. входные данные задано единственное число k (1 =k= 100000). выходные данные необходимо вывести количество натуральных палиндромов, не превосходящих k. пс функции не проходили, надо как то без них

luss55 · Answer

{L-левая половинка числа, R - правая}var count,k,m,R,L:longint;begin  count:=0;writeln( Введите k );  readln(k);  for L:=1 to k do  begin    R:=0; m:=L;    while m 0 do    begin      R:=R*10+m mod 10;      m:=m div 10;    end;    if R=L then count:=count+1;  end;  writeln(count);end....