giúp nhanh mịk với nha

[teenhoctap]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình con tìm các ước thực sự của 1 số (các ước ko kể chính nó và 1)của 1 số.
viết ct con tìm các ước thực sự của 1 số nd sau đó sử dụng ct con để tìm tất cả các số <n và có đúng k ước số(k và n nhập từ bàn phím)

 

[quanghero100]

bài này hình như anh thanhkheo hiểu nhầm đề rồi theo em thì nó thế này

uses crt;
var n,k:integer;
function uocthucsu(a,k:integer):boolean;
var d,i:integer;
begin
 uocthucsu:=false;
 d:=0;
 for i:=1 to a do
  if a mod i=0 then inc(d);
  if d=k then uocthucsu:=true;
end;
procedure nhap;
begin
 clrscr;
  write('n='); readln(n);
  write('k='); readln(k);
end;
procedure xuli_va_xuat;
var i:integer;
begin
 for i:= 1 to n-1 do
  if uocthucsu(i,k)=true then write(i,'  ');
end;
begin
 nhap;
 xuli_va_xuat;
readln;
end.