Выяснить, является ли данное трехзначное число палиндромом

@TORVALD · Регистрация: 14.05.2009

Студворк — интернет-сервис помощи студентам

Дано трехзначное число. Выяснить, является ли оно палиндромом(<<перевертышем>>), то есть таким числом, десятичная запись которого читается слева направо и справа налево.

Идея в принципе есть как решать.. Я так понял надо что бы оно проверяло крайние числа.. но как это записать не знаю.. подкиньте идею как это записать?

@EnzoMatrix · 14.05.2009, 01:05

правая цифра
a mod 10
левая цифра
a div 100

@TORVALD · 14.05.2009, 01:33 **[ТС]**

ммм.. что то не очень помогло.. но я решил попробовать по другому

Pascal
1
2
3
4
5
6
7
8
9
10
11
program palindrum;
uses crt;
var
ABC,A,C:integer;
begin;
writeln('vvedite lyboe trexznachnoe chislo ABC->');
readln(ABC);
if(A=C) then writeln('vashe chislo 9vl9etsa palindromom');
if (A<>C) then writeln('eto chislo nepravilbnoe');
readln;
end.

но это походу на ряду с бредом... я немного запутался(

@Puporev · 14.05.2009, 07:42

но это походу на ряду с бредом..

Истинно так.
Вам же написали как надо, чего еще выдумываете. Прочитайте про числа, про целочисленное деление, если вообще ничего не понимаете.

@TORVALD · 14.05.2009, 08:21 **[ТС]**

все я понял.. пасибо)

@Vzik · 14.05.2009, 10:41

Вот задача на палиндром

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var n,r,k,M,i:integer;
F:Boolean;
begin
clrscr;
repeat
write ('n=');
readln(n);
until n>0;
M:=n;
 r:=1;
  k:=1;
  f:=false;
while (m div 10) >0 do
begin
M:=m div 10;
R:=r*10;
K:=k+1;
end;
M:=n;
For i:=1 to k div 2 do
begin
if (m div r) <> (m mod 10) then f:=true;
M:=(m mod r) div 10;
R:=r div 100;
end;
if f then writeln (n,'-ne palindrom') else writeln (n,'-palindrom');
readkey;
end.

@TORVALD · 14.05.2009, 16:53 **[ТС]**

ну спасибо и на этом.. я еще узнал что ее можно как то решить используя string.. тоисть наше вводимое число перевести в строку с помощью процедуры procedure Str(X [:ВсегоСимволов [:ДробнаяЧасть ]]; var Строка: string);.... но тоно не знаю как ..надо бы разобрать этот вариант..

@Puporev · 14.05.2009, 16:55

s1:='';
for i:=length(s) to 1 do
s1:=s1+s[i];
if s=s1 then palindrom
else ni figa;

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136

	Выяснить, является ли данное трехзначное число палиндромом 14.05.2009, 00:48. Показов 4255. Ответов 7 Метки нет (Все метки) Дано трехзначное число. Выяснить, является ли оно палиндромом(<<перевертышем>>), то есть таким числом, десятичная запись которого читается слева направо и справа налево. Идея в принципе есть как решать.. Я так понял надо что бы оно проверяло крайние числа.. но как это записать не знаю.. подкиньте идею как это записать? 0

@EnzoMatrix 121 / 121 / 14 Регистрация: 14.03.2009 Сообщений: 462
	14.05.2009, 01:05
	правая цифра a mod 10 левая цифра a div 100 0

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136
	14.05.2009, 08:21 [ТС]
	все я понял.. пасибо) 0

@TORVALD 2 / 2 / 3 Регистрация: 14.05.2009 Сообщений: 136
	14.05.2009, 16:53 [ТС]
	ну спасибо и на этом.. я еще узнал что ее можно как то решить используя string.. тоисть наше вводимое число перевести в строку с помощью процедуры procedure Str(X [:ВсегоСимволов [:ДробнаяЧасть ]]; var Строка: string);.... но тоно не знаю как ..надо бы разобрать этот вариант.. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.05.2009, 16:55
	s1:=''; for i:=length(s) to 1 do s1:=s1+s[i]; if s=s1 then palindrom else ni figa; 0