vatman

Untitled

Sep 29th, 2020
171
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.29 KB | None | 0 0
  1. program palindrom;
  2. var a,m,n:integer;
  3. BEGIN
  4. read(a);
  5. m:=a;
  6. n:=0;
  7.   while m<>0 do
  8.     BEGIN
  9.       n:=n*10+m mod 10;
  10.       m:=m div 10
  11.     END;  
  12.   if a=n then
  13.     write('да')
  14.   else write('нет')  
  15. END.
  16. //является ли n значное число полиндромом?
Advertisement
Add Comment
Please, Sign In to add comment