Определить, является ли целое трехзначное число палиндромом - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д