Question

Nhập n và và liệt kê các số dương bé hơn hoặc bằng n, tổng các ước của nó bé hơn hoặc bằng chính nó.

Answer 1

Program hotrotinhoc;

Var i,n: word;

function uoc(x: word): word;

var t,j: word;

begin

t:=0;

for j:=1 to x do if x mod j=0 then t:=t+j;

uoc:=j;

end;

begin

write('Nhap n='); readln(n);

for i:=1 to n do

if uoc(i)<=i then write(i,' ');

readln

end.

Answer 2

Bạn cho một vd thử đi

Answer 3

Nếu có vd thì mình sẽ làm cho

Answer 4

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

write(i:4);

readln;

end.

Answer 5

Chị @Nguyễn Minh Lệ ơi, chị hiểu đề bài này không

em chỉ hiểu phần đầu, còn phần sau không hiểu gì

Answer 6

Program hotrotinhoc;

Var i,n: word;

function uoc(x: word): word;

var t,j: word;

begin

t:=0;

for j:=1 to x do if x mod j=0 then t:=t+j;

uoc:=t;

end;

begin

write('Nhap n='); readln(n);

for i:=1 to n do

if uoc(i)<=i then write(i,' ');

readln

end.