Viết chương trình nhập vào mảng số nguyên và 1 giá trị b nguyên, thông báo ra màn hình các số trong mảng là ước của b

0 bình luận về “Viết chương trình nhập vào mảng số nguyên và 1 giá trị b nguyên, thông báo ra màn hình các số trong mảng là ước của b”

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

   Bình luận