Viết chương trình nhập vào một số nguyên n gồm ba chữ số. xuất ra màn hình giá trị của các hàng trăm hàng chục hàng đơn vị

0 bình luận về “Viết chương trình nhập vào một số nguyên n gồm ba chữ số. xuất ra màn hình giá trị của các hàng trăm hàng chục hàng đơn vị”

1. uses crt;
   var n:string; a:longint;
   begin
   clrscr;
      write(‘n=’);readln(a);  str(a,n);
      writeln(‘Hang chuc: ‘,n[2]);
      writeln(‘Hang don vi: ‘,n[3]);
   readln
   end.

   Bình luận

2. uses crt;

   var n,t,c,dv:integer;

   begin

   clrscr;

   repeat readln(n);

   until (100<=n) and (n<=999);

   t:=n div 100;

   c:=(n div 10) mod 10;

   dv:=n mod 10;

   write(t,’ ‘,c,’ ‘,dv);

   readln

   end.

   Bình luận