Viết chương trình nhập vào một số và thông báo ra màn hình số đó có phải là số đó có phải là số hoàn thiện hay ko số hoàn thiện là số bằng tổng các ước của nó (không kể chính nó)
Chìu thi giúp mình với
Viết chương trình nhập vào một số và thông báo ra màn hình số đó có phải là số đó có phải là số hoàn thiện hay ko số hoàn thiện là số bằng tổng các ước của nó (không kể chính nó)
Chìu thi giúp mình với
program hoan_thien;
uses crt;
var n,i,t:integer;
begin
clrscr;
write(‘Nhap so can kiem tra: ‘); readln(n);
t:=0;
for i:=1 to n div 2 do
if n mod i=0 then t:=t+i;
if t=n then write(n,’ la so hoan thien’)
else write(n,’ KHONG la so hoan thien’);
readln;
end.