Пожалуйста помогите с ПаскалемНазовем число палиндромом, если оно не изменяется при

Question

Пожалуйста помогите с ПаскалемНазовем число палиндромом, если оно не изменяется при

Пожалуйста помогите с Паскалем
Назовем число палиндромом, если оно не изменяется при перестановке его цифр в обратном порядке. Напишите программку, которая по данному числу K выводит количество естественных палиндромов, не превосходящих K.
Входные данные
Задано единственное число K (1lt;=K=lt;100000).
Выходные данные
Нужно вывести количество естественных палиндромов, не превосходящих K.
пс Функции не проходили, надо как то без их

Задать свой вопрос

Jurok Tulapin 2019-09-12 21:45:27

(1K100000). Разуметь как 1>K>100000

Полина Немвродова 2019-09-12 21:53:32

1

Елизавета Чичильницкая
Информатика
2019-09-12 21:36:00
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Помогите срочно!!! Пожайлуста!!!

1. В 19 ч 30 мин были зажжены две свечки одинаковой

Помогите решить ребус : цветок+ цветок+ цветок= букет

Помогите упростить выражениеСпс

отыскать глагол в переносном значении? Тут любит медведь порой посидеть и

цепочка последствий использования изделий из металла

Какие носители заряда являются основными в полупроводниках n-типа?

Назовите главные этапы Золотой орды,пожалуйста

Сделать ПОЛНЫЙ синтаксический разбор! Даю 20 баллов за ПРАВИЛЬНОЕ решение :)Слышно,

дастарана е брнш не ойлады?

Светлана Перцова · Answer 1 · 2019-09-12 21:42:25+3:00

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 mgt;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.

О проекте

Пожалуйста помогите с ПаскалемНазовем число палиндромом, если оно не изменяется при

Добро пожаловать!