Nhập vào mảng một chiều,đếm xem có bao nhiêu số cân bằng (pascal)

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

1. uses crt;
   var 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;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin
            write(‘Nhap so thu ‘,i,’: ‘);readln(a[i]);
            if kt(a[i]) then inc(d);
         end;
      writeln(‘Co ‘,d,’ so can bang’);
   readln
   end.

   Bình luận

2. program so_can_bang;

   uses crt;

   var A:array[1..10000] of longint;

         n,i,d:integer;

   {—CT-con—}

   function kt(k:longint):boolean;

   var dc,dl:byte;

         m:integer;

   begin 

         dc:=0;  dl:=0;

         while k>0 do

               begin

                     m:=k mod 10;

                     if m mod 2=0 then dc:=dc+1 else dl:=dl+1;

                     k:=k div 10;

               end;

         if dc=dl then kt:=true else kt:=false;

   end;

   {—CT-chinh—}

   BEGIN

         clrscr;

         d:=0;

         write(‘Nhap so luong phan tu: ‘);  readln(n);

         d:=0;

         for i:=1 to n do

               begin

                     write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                     if kt(A[i]) then d:=d+1;

               end;

         write(‘Co ‘,d,’ so can bang’);

         readln;

   end.

   Bình luận