Nhập vào 1 số nguyên N, thông báo chữ số đầu tiên tính từ trái qua

0 bình luận về “Nhập vào 1 số nguyên N, thông báo chữ số đầu tiên tính từ trái qua”

1. program Thb_chs_dt;
   uses crt;
   var a:string;
       n:integer;
   Begin
      Clrscr;
       Write(‘Nhap n=’);
       Readln(n); str(n,a);
   Write(‘Chu so dau tien tinh tu trai qua la ‘,a[1]);
     readln;
   end.

   Bình luận

2. program csdt;

   uses crt;

   var n:integer;

   begin

   clrscr;

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

   while n>9 do

    n:=n div 10;

   write(‘Chu so dau tien la: ‘,n);

   readln

   end.

   Bình luận