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

0 bình luận về “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”

1. 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ình luận

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

   Bình luận