Предмет: Информатика,
автор: 0o6qvtnc
помогите: как Определить, является ли введенное число палиндромом?
Ответы
Автор ответа:
0
var
a, b: string;
i: integer;
begin
readln(a);
b := a;
for i := length(a) downto 1 do b[length(a) - i + 1] := a[i];
if a = b then writeln('YES')
else writeln('NO');
end.
Интересные вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: География,
автор: sanaevas1
Предмет: Математика,
автор: BMWQ8TOP228
Предмет: Литература,
автор: ОксанаНяшаКэт
Предмет: Алгебра,
автор: НикерТвист