Определить, является ли целое трехзначное число палиндромом - Turbo Pascal

Формулировка задачи:

нужно помочь Проверить, является ли целое трехзначное число палиндромом (читается одинаково слева направо и справа налево)

Код к задаче: «Определить, является ли целое трехзначное число палиндромом - Turbo Pascal»

textual
Var
  S,ss : String;
  i : Byte;
 
Begin
 Readln(ss);  S:='';
 For i:=1 to Length(SS) do
   If ss[i]<>' ' then s:=s+ss[i];
 For i:=1 to Length(S) div 2 do
   If Upcase(S[i])<>Upcase(S[Length(S)-i+1]) then
   Begin
     Writeln('Not Polyndrome!');
     Break;
   End;
  If i>=Length(S) div 2 then Writeln('Its Polyndrome!');
End.

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы