ai giúp em giải btaapj này với y!!!!khó wa ak~X(~X(~X(~X(~X(

[nguoidang1996]

1)viết chương trình nhập số n từ bàn phím tính S= 1/1! + 2/2!+....+1/n!;
2)viết chương trình kiểm tra số hoàn hảo n;
3)viết chương trình lập ra các số nguyên tố từ 1 đến n biết n nhập từ bàn phím.

[express020]

1)viết chương trình nhập số n từ bàn phím tính S= 1/1! + 2/2!+....+1/n!;
2)viết chương trình kiểm tra số hoàn hảo n;
3)viết chương trình lập ra các số nguyên tố từ 1 đến n biết n nhập từ bàn phím.



Giải cho bạn í 2 nè.

function hoanhao( n: integer): boolean;
var i, tonguoc: longint;
begin
tonguoc:=0;
for i:=1 to (n-1) do
if (n mod i) = 0 then tonguoc:= tonguoc + i ;
hoanhao := (n=tonguoc)
end;