Tính tổng các ước số của số nguyên n nhập từ bàn phím (n<=80)

Yêu cầu

1.xâ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ệnh 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 lệnh lặp for...to...do

Làm cả 4 nha giúp mik với mik cần gấp

1. Thuật toán 1

+ Bước 1 : Nhập số n với (n <= 80)

+ Bước 2 : i ← 1, Tong ← 10

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

+ Bước 4 :

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

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

2. Chương trình 1

uses crt;

var i, n, Tong : integer;

begin

clrscr;

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

i := 1; Tong := 0;

while i <= n do begin

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

i := i + 1; end;

write('Tong = ', Tong);

readln

end.

3. Thuật toán 2

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

+ Bước 2 : i ← 1, Tong ← 0

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

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

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

+ Bước 6 : In giá trị Tong rồi kết thúc

4. Chương trình 2

uses crt;

var i, n, Tong : integer;

begin

clrscr;

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

Tong := 0;

for i := 1 to n do

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

write('Tong = ', Tong);

readln

end.