1. Информатика
  2. Дано натуральное число

Дано натуральное число n. проверить является ли это число палиндромом.

dionis01 dionis01    1   07.03.2019 13:10    3

Ответы
ruba35 ruba35  24.05.2020 02:55

s:= str(number);

for := 1 to length(s)  div 2 do

  if s[i] <> s[length(s) - i + 1] then writeln("Не палиндром")ж 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
maslyuk05 maslyuk05  11.07.2019 14:00
Внешняя память: носители накопители объём носителей ? ? ? (типа таблицы) ^...
SAVFOREVER SAVFOREVER  11.07.2019 12:18
Adpe8xbx8xkyo1qui6ywy7in9ivp8ezie6yfag2eirh7ytoxev9ybh3dng8vrue3baas0pf8ya3eyy1orka3vwx4otoi1rex8yu2afba4oy1ysu4fzp0ayup2rhf2buh2yieiai9s2xdd0ibyu5miiw9rof3skk7fus8ala0og5yjbs1fo4oo1agkj7re4y5fuai4e5azi9ae1asafyg4ew5oa9eaye5l9eb3qw8joe9esb1id9aeueoy...
maz156 maz156  11.07.2019 14:10
Какое минимальное число можно получить из числа 723 при циклического сдвига цифр его записи в двоичной системе счисления? ответ запишите в десятичной системе счисления....
404pm 404pm  11.07.2019 14:10
Спо информатике. заранее ! файл размером 32 кбайт передается через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла ( в кбайт), который...
София5778 София5778  01.10.2019 09:40
Нужно написать выражение: вася пошёл гулять в форме домика . это информатика....
Maksimka087 Maksimka087  01.10.2019 09:40
Для какого имени истинно высказывание: (первая буква согласная → вторая буква гласная) ^ последняя буква согласная? 1) алиса 2) максим 3) степан 4) елена...
Sundywer Sundywer  01.10.2019 09:40
Нужно! 1.сколько единиц в шестнадцатеричной записи десятичного числа 497? 2.сколько нулей в десятичной записи двоичного числа 1100100? 3.определите количество натуральных...
Toma06000 Toma06000  13.02.2021 19:44
Составить блок-схему для решения задачи и написать программу с протоколом решения: Задача: Вычислить сумму 1/n3 для n=1,2,40....
turysbekaida turysbekaida  25.08.2019 03:20
Решить с кругов эйлера постройте схему, на которой кругами обозначьте три множества: множество всех высоких людей; множество всех пап; множество родителей, умеющих плавать....
Maxi4601 Maxi4601  25.08.2019 03:20
Var k, m, day: integer; dat: of integer; begin dat[1] : = 2; dat[2] : = 2; dat[3] : = 3; dat[4] : = 3; dat[5] : = 2; dat[6] : = 2; dat[7] : = 5; dat[8] : = 5; dat[9]...

Популярные вопросы