Составить программу, проверяющую является ли число палиндромом
Answers & Comments
AngelWey
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.
Answers & Comments
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.