Viết chương trình nhập vào một mảng B gồm có x số nguyên với x là một số nguyên nhập vào từ bàn phím Cho biết trong mảng vừa nhập có bao nhiêu số có

0 bình luận về “Viết chương trình nhập vào một mảng B gồm có x số nguyên với x là một số nguyên nhập vào từ bàn phím Cho biết trong mảng vừa nhập có bao nhiêu số có”

1. Program BTT;
   Uses crt;
   Var B: array[1..1000] of longint;
       x,d,i: longint;

   Function cs(a: longint): byte;
   Var d: byte;
   Begin
           d:=0;
           While a<>0 do
           Begin
                   inc(d);
                   a:=a div 10;
           End;
           cs:=d;
   End;

   Begin
           Clrscr;
           Write(‘Nhap x: ‘); Readln(x);
           For i:=1 to x do
           Begin
                   Write(‘B[‘,i,’] = ‘);
                   Readln(B[i]);
           End;

           d:=0;
           For i:=1 to x do
                   If cs(B[i]) = 2 then inc(d);
           Write(‘Co ‘,d,’ so co hai chu so’);
           Readln
   End.

   Bình luận

2. uses crt;
   var i,j,n,d:longint; b:array[1..100]of longint;
   begin
   clrscr;
      write(‘Nhap n: ‘);readln(n);
      for i:=1 to n do 
         begin 
            write(‘b[‘,i,’]= ‘);readln(b[i]); 
            if (abs(b[i])<100)and(abs(b[i])>9) then inc(d);
         end;
      writeln(d);
   readln
   end.   

   Bình luận