Bài 7. Câu lênh lặp

Ngọc Hương

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ó.

Minh Lệ
8 tháng 11 2019 lúc 14:13

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.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
26 tháng 11 2019 lúc 23:22

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

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
26 tháng 11 2019 lúc 23:22

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

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
26 tháng 11 2019 lúc 23:47

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

write(i:4);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
26 tháng 11 2019 lúc 23:48

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ì

Bình luận (0)
 Khách vãng lai đã xóa
Minh Lệ
27 tháng 11 2019 lúc 6:11

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Thùy Linh Lê
Xem chi tiết
NgocTuan
Xem chi tiết
Nguyễn Hoàng Tuyết Linh
Xem chi tiết
Trần Mai
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Minh Ngọc
Xem chi tiết
Bao Duong
Xem chi tiết
Hoà Trần
Xem chi tiết
Kudo Shinichi
Xem chi tiết