Question

Dùng ngôn ngữ lập trình pascal hoặc free pascal viết chơng trình thực hiện công việc nhập 1 số nguyên dương n từ bàn phím.xuất ra màn hình và cho biết :

a)cho biết từ 1 đến n có bao nhiêu ước số của n (trừ chính nó) và các ước đó là bao nhiêu.

b)tổng ưa các ước số từ 1 đến n của n(trừ chính nó)

c)n có phải là số hoàn hóa hay không?(số hoàn hảo là số có tổng các ước dương trừ chính nợ công lại bằng chính nó)

giúp mình với mai kiểm tra rồi????/???/

Answer 1

uses crt;
var n,i,dem,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('so ban vua nhap la: ',n);
dem:=0;
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
write(i:4);
dem:=dem+1;
t:=t+i;
end;
writeln;
writeln('so cac uoc cua ',n,' ko ke chinh no la: ',dem);
writeln;
writeln('tong cac uoc cua ',n,' khong ke chinh no la: ',t);
if t=n then write(n,' la so hoan hao')
else write(n,' khong phai la so hoan hao');
readln;
end.