Số đảo ngược: Tìm số đảo ngược của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19. VD: X=123 thì

0 bình luận về “Số đảo ngược: Tìm số đảo ngược của một số X, biết Y gồm các chữ số của X và viết theo thứ tự ngược lại. Xuất ra kết quả là số Y mod 19. VD: X=123 thì”

1. uses crt;
   var x,y:string; i,a,e:longint;
   begin
   clrscr;
      write(‘X=’);readln(x);
      for i:=1 to length(x) do y:=x[i]+y;
      val(y,a,e);
      writeln(a mod 19);
   readln
   end.

   Đảo ngược xâu:

   Đi từ 1 tới độ dài của xâu X:Y là bằng X[i] + Y(Vd Y=2+3 thì ra 23 với X[i] là 2 và Y là 3);

   Tức là chèn cái X[i] vào trước Y để có số đảo ngược.

   Nếu có gì không hiểu các bạn hãy để lại bình luận nha!!!

   

   Bình luận

2. var x,y,j,i,t : longint;
   procedure sdn(x : integer);
   var y : integer;
   begin
   y:=x;
   while y <>0 do begin
   write(y mod 10);
   y:=y div 10;
   end; end;
   begin clrscr;
   write(‘Nhap so x :’); readln(x);
   write(‘So dao nguoc cua ‘,x,’ la :’) ;sdn(x);
   readln
   end.

   * Mình thấy cách làm bài này với xâu sẽ tối ưu nhất vì khi làm không chuyển sang xâu thì sẽ không gán được giá trị cụ thể số đảo ngược đó. Nên bạn có thể tham khảo cách của bạn trên rất ngắn gọn và đúng.

   Bình luận