zadach390.BAS

{* Задача390 *}

REM basic

' Является ли заданное натуральное число палиндромом?


INPUT "vvedite chislo ",a
b=a
Do
c=c*10+b Mod 10
b=b10
Loop Until b=0
If c=a Then PRINT"palindrom" Else PRINT"ne palindrom"
End