Viết chương trình nhập vào 1 day số N số nguyên (N <=250) từ bàn phím. Nhập số K, đếm và tính tổng các phần tử số lẻ là ước của K trong dãy số và đưa

0 bình luận về “Viết chương trình nhập vào 1 day số N số nguyên (N <=250) từ bàn phím. Nhập số K, đếm và tính tổng các phần tử số lẻ là ước của K trong dãy số và đưa”

1. program bt;
   uses crt;
   var A:array[1..1000] of integer;
       n,i,k,T,d:integer;
   begin
    clrscr;
    readln(n,k);
    for i:=1 to n do read(A[i]);
    for i:=1 to n do if (A[i]<=k)and(k mod A[i]=0)and(A[i] mod 2 <> 0) then
     begin
      inc(d);
      T:=T+A[i];
     end;
    writeln(‘So uoc le cua day: ‘,d);
    writeln(‘Tong uoc le cua day: ‘,T);
    readln;
    readln;
   end.

   Bình luận