Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program palindrom;
- var a,m,n:integer;
- BEGIN
- read(a);
- m:=a;
- n:=0;
- while m<>0 do
- BEGIN
- n:=n*10+m mod 10;
- m:=m div 10
- END;
- if a=n then
- write('да')
- else write('нет')
- END.
- //является ли n значное число полиндромом?
Advertisement
Add Comment
Please, Sign In to add comment