Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ?

Question

Nhập vào một dãy và số k , cho biết có bao nhiêu số chia hết cho k ?

in progress 0
Faith 2 tuần 2021-08-28T05:57:43+00:00 1 Answers 3 views 0

Answers ( )

    0
    2021-08-28T05:58:43+00:00

    Program tuyban;

    uses crt; Var a: array[1..100] of integer;

    i,D,k,n : integer;

    Begin

    clrscr;

    D:=0;

    writeln(‘ nhap so so trong day so’,n);

    readln( n);

    For i:=1 to n do

    Begin

    write(‘a[‘,i,’]’) ;

    readln(a[i] );

    end;

    writeln(‘nhap k’,k) ; readln(k);

    For i:=1 to n do

    begin

    if a[i] mod k= 0 then D:=D+1;

    writeln(‘so so chia het cho k la’,D):

    end;

    readln

    End.

Leave an answer

Browse

35:5x4+1-9:3 = ? ( )