Câu 1: Cho số tự nhiên N,K (1 ≤ N <$10^7$ ; 1 ≤ K ≤ 9). Đếm các số ước của N chia hết cho K và tính tổng các ước đó.

0 bình luận về “Câu 1: Cho số tự nhiên N,K (1 ≤ N <$10^7$ ; 1 ≤ K ≤ 9). Đếm các số ước của N chia hết cho K và tính tổng các ước đó.”

1. program bt;

   uses crt;

   var n,k,dem,s: integer;

   begin 

        clrscr;

        write(‘hay nhap n va k!’);

        readln(n,k);

        dem:=0;

        s:=0;

        for i:=1 to n do if (i mod k=0) and (n mod i=0)then

             begin

                  dem:=dem+1;

                  s:=s+i;

             end;

        writeln(‘So uoc cua n chia het cho k la:’,dem);

        writeln(‘Tong cac uoc do la:’,s);

        readln

   end.

    

   Bình luận

2. prgram ct;

   uses crt;

   var N,K,S,D:integer;

   begin clrscr;

      write(‘Nhap hai so N, K: ‘); readln(N,K);

        S:=0;

      for i:=1 to N do

         if (N mod i=0) and (i mod K=0) then 

           begin 

              inc(D);

              S:=S+i;

           end;

      writeln(N,’ co ‘,D,’ uoc chia het cho ‘,K,’. Tong la: ‘,S);

   readln;

   end.

   Học tốt!

   Bình luận