a) Số nguyên a được gọi là số hoàn thiện khi và chỉ khi tổng các ước dương của a (trừ ước a) bằng chính nó. Ví dụ 6 là số hoàn chỉnh vì 6 có các ước là 1,2,3 và tổng các ước là 1+2+3=6. Viết trương chình nhập vào số dương n từ bàn phím (0≤ n ≤ 1000). In lên màn hình tất cả các số hoàn chỉnh dương nhỏ hơn hoặc bằng n.
b)Trong toán học n! (đọc là giai thừa) dược định nghĩa như sau:
Qui ước: 0!=1
n!=1.2.3...n
Vd: 4!=1.2.3.4=24
Viết trương trình nhập từ bàn phím số nguyên n (0≤ n ≤ 20). Tính và in lên màn hình n!
a)
uses crt;
var n,i,t,j:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
b)
uses crt;
var gt:real;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
gt:=1;
for i:=1 to n do
gt:=gt*i;
writeln(gt:0:0);
readln;
end.