nhập n và dãy a1 a2… AN và số nguyên k. hãy đếm và tính tổng các số là bội của k

0 bình luận về “nhập n và dãy a1 a2… AN và số nguyên k. hãy đếm và tính tổng các số là bội của k”

1. uses crt;
   var a: array[1..100] of integer;
   k,i,n,t,dem:integer;
   begin
   clrscr;
   write(‘nhap n: ‘);  readln(n);
   for i:=1 to n do
   begin
   write(‘nhap a[‘,i,’]= ‘);   readln(a[i]);
   end;
   write(‘nhap k: ‘);   readln(k);
   for i:=1 to n do
   if a[i] mod k=0 then
   begin
   inc(dem);
   t:=t+a[i];
   end;
   writeln(‘co ‘,dem,’ so trong day la boi cua ‘,k);
   writeln(‘tong cua day boi la: ‘,t);
   readln;
   end.

   Bình luận

2. program boi_so;

   uses crt;

   var A:array[1..1000] of integer;

        n,i,k,d,t:integer;

   begin

         clrscr;

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

         for i:=1 to n do

               begin

                     write(‘A[‘,i,’]= ‘);   readln(A[i]);

               end;

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

         d:=0;  t:=0;

         for i:=1 to n do

               if A[i] mod k=0 then

                     begin

                           d:=d+1;

                           t:=t+A[i];

                     end;

         writeln(‘Co ‘,d,’ so la boi cua ‘,k);

         writeln(‘Tong cua chung la: ‘,t);

         readln;

   end.

   Bình luận