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.

1.

B1: nhập n

B2: nếu n<=80 thì thực hiện B3 ngược lại in ra màn hình "vui long nhap lai"

B3: i`<-`0; s`<-`0;

B4: nếu i<=n thì chuyển tới B4

B5:

B5.1: i`<-`i+1;

B5.2: if n mod i = 0 then s`<-`s+i;

B6.3: trở lại B3

B7. kết thúc thuật toán

2.

uses crt;

var n,i,s: integer;

begin

clrscr;

readln(n);

if n<=80 then

begin

while i<=n do

begin

i:=i+1;

if n mod i = 0 then s:=s+i;

end;

write(s)

end;

else write('Vui long nhap lai');

readln

end.

3.

B1: nhập n

B2: nếu n<=80 thì thực hiện B3 ngược lại in ra màn hình "vui long nhap lai

B3: lặp i từ 1 đến n

B4: if n mod i = 0 then s`<-`s+i;

B5. kết thúc thuật toán

4.

uses crt;

var n,i,s: integer;

begin

clrscr;

readln(n);

if n<=80 then

begin

for i:=1 to n do if n mod i = 0 then s:=s+i;

write(s);

end

else write('Vui long nhap lai');

readln

end.