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