[Hỏi] bài tập về turbo pascal

[sondaicae1998vn]

Viết Ct nhập vào 1 số, in ra màn hình số đảo ngược (Vd: nhập 123 => xuất 321) Lưu ý: sử dụng CT con

 

[dienvi2010]

Chương trình:

Var n:integer;
Procedure InDao(x:integer);
var i:integer;
Begin
     While x<>0 do
     Begin
          write(x mod 10);
          x:=x div 10;
     End;
End;
Begin
     Write('Nhap n: '); readln(n);
     Write('So dao: ');
     InDao(n);
     Readln;
End.