Cho số nguyên dương N, hãy cho biết N có đối xứng không

0 bình luận về “Cho số nguyên dương N, hãy cho biết N có đối xứng không”

1. Program BTT;
   Uses crt;
   Var St,S: String;
       i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(St);
           S:=”;
           For i:=length(St) downto 1 do
                   S:=S+St[i];
           If St=S then Write(‘Doi xung’)
           Else Write(‘Khong doi xung’);
           Readln
   End.

   Bình luận

2. var n:longint;

   function check(n:longint) : boolean;

   var s:string

   begin

   str(n,s);

   for i:=1 to length(s) div 2 do

   if s[1+i-1]<>[length(s)-i+1] then exit(false);

   exit(true);

   end;

   begin

   write(‘Nhap n: ‘); readln;

   if check(n) then write(‘La so doi xung’) else write(‘Khong phai la so doi xung’);

   readln;

   end.

   Bình luận