lập trình nhập vào số nguyên dương n (10

25/07/2021 Bởi Vivian

0 bình luận về “lập trình nhập vào số nguyên dương n (10<n<32767) đưa ra màn hình số nguyên n viết theo thứ tự ngược lại”

1. uses crt;
   var n,i:longint; s:string;
   begin
   clrscr;
      write(‘n=’);readln(n);
      str(n,s);
      for i:=length(s) downto 1 do write(s[i]);
   readln
   end.

   Bình luận

2. program daoso;

   uses crt;

   var n:longint;

         i:byte;

          s,dao:string[5];

   begin

   clrscr;

   repeat

    write(‘nhap n: ‘);

    readln(n);

    if (n<10) or (n>32767) then writeln(’10<n<32767. Nhap lai!’);

   until (n>10) and (n<32767);

   str(n,s);

   dao:=”;

   for i:=length(s) downto 1 do

    dao:=dao+s[i];

   write(‘So dao cua ‘,n,’ la: ‘,dao);

   readln

   end.

    

   Bình luận