Tin học Viết chương trình lớp 8

[Minh Tín]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình pascal nhập 1 số in ra số đảo ngược của số đó.
Vd:
12345 -> 54321
3421 -> 1243

 

[Trâm Nguyễn Thị Ngọc]

Viết chương trình pascal nhập 1 số in ra số đảo ngược của số đó.
Vd:
12345 -> 54321
3421 -> 1243

Var
    s,n:integer;
Begin
    Readln(n);
    s:=0;
    While n<>0 do
       Begin
            s:=s*10+(n mod 10);
            n:=n div 10;
       end;
   Write('so dao nguoc cua',n,'la:',s);
   readln
End.

 

[Hải Ham Học]

Var
    s,n:integer;
Begin
    Readln(n);
    s:=0;
    While n<>0 do
       Begin
            s:=s*10+(n mod 10);
            n:=n div 10;
       end;
   Write('so dao nguoc cua',n,'la:',s);
   readln
End.

chúng ta có thể write(n mod 10) ngay trong vòng while ...do.. rồi n:=n div 10; để tiết kiệm biến cũng như settime :v

 

[02-07-2019.]

Viết chương trình pascal nhập 1 số in ra số đảo ngược của số đó.
Vd:
12345 -> 54321
3421 -> 1243

Nếu bạn biết về xâu thì dùng cách này nhanh hơn:

var s:ansistring;i:longint;
Begin
         Assign(input,'sodaonguoc.inp');reset(input);
         Assign(output,'sodaonguoc.out');rewrite(output);
           Read(s);
             For i:=length(s) downto 1 do
               Write(s[i]);
End.

 

[Hải Ham Học]

Var
    s,n:integer;
Begin
    Readln(n);
    s:=0;
    While n<>0 do
       Begin
            s:=s*10+(n mod 10);
            n:=n div 10;
       end;
   Write('so dao nguoc cua',n,'la:',s);
   readln
End.

sao viết được "mã" thế