Tính tích các ước của số nguyên n nhập vào từ bàn phím(n<=80) 1Xây dựng thuật toán bằng vòng lặp while...do 2.Viết chương trình sử dụng lệnhh lặp while...do 3.Xây dựng thuật toán bằng vòng lặp for to do 4.Viết chương trình sử dụng vòng lặp for to do

1. Xây dựng thuật toán While .. do

+ Bước 1 : Nhập số n

+ Bước 2 : i ← 1, Tich ← 1

+ Bước 3 : Nếu i > n thì đưa ra giá trị Tich rồi kết thúc

+ Bước 4 :

+ Bước 4.1 : Nếu n mod i = 0 thì Tich ← Tich * i

+ Bước 4.2 : i ← i + 1 quay lại bước 3

2. Viết chương trình While .. do

uses crt;

var i, n, Tich : integer;

begin

clrscr;

write('Nhap so n : '); readln(n);

i := 1; Tich := 1;

while i <= n do begin

if n mod i = 0 then Tich := Tich * i;

i := i + 1; end;

write('Tich = ', Tich);

readln

end.

3. Viết thuật toán For .. do

+ Bước 1 : Nhập số n

+ Bước 2 : i ← 1, Tich ← 1

+ Bước 3 : Nếu n mod i = 0 thì Tich ← Tich * i

+ Bước 4 : i ← i + 1

+ Bước 5 : Nếu i <= n quay lại bước 3

4. Viết chương trình For .. do

uses crt;

var i, n, Tich : integer;

begin

clrscr;

write('Nhap so n : '); readln(n);

Tich := 1;

for i := 1 to n do

if n mod i = 0 then Tich := Tich * i;

write('Tich = ', Tich);

readln

end.