Trung Hiếu's Profile

viết chương trình nhập vào số n in ra màn hình số đảo ngược của n

Bạn tham khảo xem cái này đúng không nhé ^^

program sodaonguoc;
uses Crt;
var i,j : integer;
    n : int64;
    a,b : String[20];
begin
  writeln('Nhap so N: ');readln(N);
  str(N,a);
  for i := length(a) downto 1 do begin
  j := j+1;
  insert(a[i],b,j);
  end;
  val(b,N);
  writeln(N);
  readln;
end.

program sodaonguoc;
uses Crt;
var i,j : integer;
    n : int64;
    a,b : String[20];
begin
  writeln('Nhap so N: ');readln(N);
  str(N,a);
  for i := length(a) downto 1 do begin
  j := j+1;
  insert(a[i],b,j);
  end;
  val(b,N);
  writeln(N);
  readln;
end.