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 đó.
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 đó.
By Lyla
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.
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!