Question

[TNhi]

viết chương trình thông báo ra màn hình các số có 3 ước số trong khoảng từ 1 đến n với n nhập từ bàn phím

Answer 1

[Minh Lệ]

Program HOC24;

var i,j,n,d: integer;

begin

write('Nhap N: '); readln(n);

d:=0;

for i:=1 to n do

for j:=1 to i do if i mod j=0 then d:=d+1;

write('Ket qua : ',d);

readln

end.