thể hien Thuật toán mả giả của bài Liệt kê tất cả các ước số của một số nguyên dương n
2 câu trả lời
Bắt đầu
Nhập vào -> n;
Đặt i := 1;
Chừng nào i * i < n
Nếu n chia hết cho i thì
Xuất ra <- i.
Kết thúc lệnh nếu.
Tăng i lên 1 đơn vị.
Kết thúc vòng lặp chừng nào.
Xuất ra <- n.
Kết thúc thuật toán.
Bạn kia viết thuật toán rồi nên mình viết chương trình luôn nhé
var n,i:longint;
begin
write('Nhap n: '); readln(n);
write('Cac uoc cua ',n,' la: ');
for i:=1 to n do
if n mod i =0 then write(i,' ');
readln;
end.
Câu hỏi trong lớp
Xem thêm
