Составить программу, проверяющую является ли число палиндромом

Question

Информатика

Эрнестина

2 апреля, 23:18

Составить программу, проверяющую является ли число палиндромом

+4

Ответы (1)

Знаешь ответ?

Рипсимия · Answer 1

Var S1, S2 : String; N : Byte; Error : Boolean;

begin

Write ('Введите натуральное число: '); ReadLn (S1);

Error : = False; S2 : = ''; for N : = 1 to Length (S1) do if S1[N] in ['0' ... '9'] then S2 : = S1[N] + S2 else Error : = True;

if Error then WriteLn ('В числе должны быть только цифры! ')

else if S1 = S2 then WriteLn ('Введённое число - является полиндромом. ')

else WriteLn ('Введённое число - не является полиндромом. ')

end.