“viết chương trình nhập vào số nguyên có ba chữ số và xuất ra số đảo ngược” giải giúp tôi theo cách của lớp 8 nhé

0 bình luận về ““viết chương trình nhập vào số nguyên có ba chữ số và xuất ra số đảo ngược” giải giúp tôi theo cách của lớp 8 nhé”

1. Program BTH;
   uses crt;
   var a:array[1..3] of byte;  
   n,i:longint;
   begin
       clrscr; 
       write(‘Nhap n: ‘);readln(n);
       a[1]:=n mod 10;
       a[2]:=n div 10;
       a[3]:=a[2] div 10;
       a[2]:=a[2] mod 10;
       write(‘So dao nguoc la: ‘);
       For i:=1 to 3 do 
       write(a[i]);
       readln;
   end.

   Bình luận