Nhập vào mảng một chiều,đếm xem trong mảng có bao nhiêu số cân bằng( pascal),dữ liệu cho trong tệp DULIEU.INP

0 bình luận về “Nhập vào mảng một chiều,đếm xem trong mảng có bao nhiêu số cân bằng( pascal),dữ liệu cho trong tệp DULIEU.INP”

1. uses crt;
   var f:text; n,i,d:longint; a:array[1..1000000]of longint;
   function kt(a:longint):boolean;
   var d1,d2:longint;
   begin
      d1:=0; d2:=0;
      repeat
         if a mod 10 mod 2=0 then inc(d1) else inc(d2);
         a:=a div 10;
      until a=0;
      kt:=d1=d2;
   end;
   begin
   clrscr;
      assign(f,’DULIEU.INP’);reset(f);
         readln(f,n);
         for i:=1 to n do 
            begin
               read(f,a[i]);
               if kt(a[i]) then inc(d);
            end;
      close(f);
      writeln(‘Co ‘,d,’ so can bang’);
   readln
   end.

   Bình luận