Viết chương trình pascal.nhập vào số N nguyên, N<1000. Đưa ra hàng trăm hàng chục hàng đơn vị

0 bình luận về “Viết chương trình pascal.nhập vào số N nguyên, N<1000. Đưa ra hàng trăm hàng chục hàng đơn vị”

1. Program NhatNgu;
   Uses crt;
   Var St: String;
   Begin
           Clrscr;
           Write(‘Nhap so: ‘); Readln(St);
           Writeln(‘Hang tram: ‘,St[length(St)-2]);
           Writeln(‘Hang chuc: ‘,St[length(St)-1]);
           Write(‘Hang don vi: ‘,St[length(St)]);
           Readln
   End.

   Bình luận

2. program ct;

   uses crt;

   var n, tram, chuc, donvi: integer

   begin

   clrscr;

   write(‘Nhap n= ‘); readln(n);

   tram:=0;

   chuc:=0;

   tram:=n div 100;

   n:=n mod 100;

   chuc:=n div 10;

   donvi:=n mod 100;

   writeln(‘Hang tram la ‘,tram);

   writeln(‘Hang chuc la ‘,chuc);

   write(‘Hang don vi la ‘,donvi);

   readln

   end.

                              

   

   Bình luận