lập trình pascal dùng longint đề: Tìm số có các chữ số đảo ngược với các chữ số n

0 bình luận về “lập trình pascal dùng longint đề: Tìm số có các chữ số đảo ngược với các chữ số n”

1. Uses crt,strutils;
   var n:longint;
       s:string;
   Begin
       Clrscr;
       Write(‘N:’);Readln(N);
       Str(N,S);
       Writeln(Reversestring(S));
   Readln
   End.

   Bình luận

2. program pht;
   uses crt;
     var n, a, x: longint;
   begin
          clrscr;
          write(‘Nhap n = ‘); readln(n);
          a:=0;
          while n<>0 do
          begin
                   x:=n mod 10;
                   a:=a*10+x;
                   n:=n div 10;
          end;
          write(‘So dao nguoc: ‘, a);
          readln
   end.

   Bình luận