Вводится положительное целое число B < 10000. Является ли оно палиндромом?

@N1k1ta43 · Регистрация: 02.10.2013

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

Вводится положительное целое число B < 10000. Является ли оно палиндромом? Палиндром – это строка или число, которое читается как слева направо, так и справа налево?

@StrelokCj · 08.10.2013, 21:07

Delphi

procedure TForm1.Edit1Change(Sender: TObject);
var
s:String;
i,j,h:integer;
c:boolean;
begin
s:=Edit1.Text;
for h:=1 to length(s) do begin
  if (s[h] in [#33,#40,#41,#44,#45,#46,#58,#59]) or (s[h]=' ')
  then delete(s,h,1);
end;
i:=0;
j:=Length(s)+1;
c:=True;
if (s<>'') then begin
for h:=1 to length(s) do
  s[h]:=upcase(s[h]);
repeat
i:=i+1;
j:=j-1;
if (i>j) then break;
if (s[i]<>s[j]) then c:=False;
until c=False;
end;
if (c=True) then Label2.Caption:='Текст является палиндромом'
else Label2.Caption:='Текст не является палиндромом';
end;

Добавлено через 3 минуты
Тут без разницы что текст что цифра, определять будет.

@N1k1ta43 0 / 0 / 0 Регистрация: 02.10.2013 Сообщений: 2
		1
	Вводится положительное целое число B < 10000. Является ли оно палиндромом? 08.10.2013, 20:45. Показов 1703. Ответов 1 Метки нет (Все метки) Вводится положительное целое число B < 10000. Является ли оно палиндромом? Палиндром – это строка или число, которое читается как слева направо, так и справа налево? 0

	08.10.2013, 21:07

Вводится положительное целое число B < 10000. Является ли оно палиндромом?

Решение