Viết chương trình nhập vào 1 số tự nhiên có 3 chữ số. In ra màn hình chữ số hàng trăm, hàng chục, hàng đơn vị (Giúp mình vs anhnhu5 :>)

0 bình luận về “Viết chương trình nhập vào 1 số tự nhiên có 3 chữ số. In ra màn hình chữ số hàng trăm, hàng chục, hàng đơn vị (Giúp mình vs anhnhu5 :>)”

1. 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