viết chương trình đếm các số là bội của 3 trong dãy số nguyên a có n phần tử ( n<=1000)

0 bình luận về “viết chương trình đếm các số là bội của 3 trong dãy số nguyên a có n phần tử ( n<=1000)”

1. uses crt;
   var i,n,d:longint; a:array[1..100000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      for i:=1 to n Do 
         begin
              write(‘a[‘,i,’]=’);readln(a[i]); 
         end;
      d:=0;
      for i:=1 to n do if a[i] mod 3=0 then inc(d);
      writeln(‘Co ‘,d,’ so la boi cua 3′);
   readln
   end.

   Bình luận

2. uses crt;
   var i,n:integer;
   a:array[0..100] of integer;
       d:byte;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]’);
                   readln(a[i]);
           end;
           d:=0;
           for i:=1 to n do
                   if a[i] mod 5=0 then inc(d);
           write(‘Co ‘,d,’ so la boi cua 5.’);
           readln

   Mong giúp đc bn!!!

   Xin 5* và ctlhn

   Bình luận