viết chương trình nhập số nguyên dương N, in ra màn hình số đảo ngược của số đó

viết chương trình nhập số nguyên dương N, in ra màn hình số đảo ngược của số đó

0 bình luận về “viết chương trình nhập số nguyên dương N, in ra màn hình số đảo ngược của số đó”

  1. uses crt;

    var i,n,d: integer;

          a: array[1..100] of integer;

    begin

    clrscr;

    write (‘nhap n: ‘);  readln (n);

    while n<=0 do

    begin

     i:=i+1;

     a[i]:=n mod 10;

     n:=n div 10

     d:=d+1;

    end;

    write (‘so sau khi dao nguoc la: ‘);

    for i:=d downto 1 do write (a[i]);

    readln;

    end.

    Bình luận
  2. uses crt;

    var n:word;

    BEGIN

            clrscr;

            write(‘Nhap so phan tu:’); readln(n);

            write(‘So dao nguoc:’);

            while n>0 do

            begin

                    write(n mod 10);

                    n:=n div 10;

            end;

            readln

    END.

    Bình luận

Viết một bình luận