Nhập số N. Kiểm tra xem nó có phải số hoàn thiện không?
(Số hoàn thiện là các ước cộng lại bằng chính nó)
Bước 1: Nhập vào n
Bước 2: Tính tổng S các số mà n chia hết trong khoảng [1..n-1]
Bước 3: Nếu S = n, số n là số hoàn thiện
Nhập số N. Kiểm tra xem nó có phải số hoàn thiện không?
(Số hoàn thiện là các ước cộng lại bằng chính nó)
Bước 1: Nhập vào n
Bước 2: Tính tổng S các số mà n chia hết trong khoảng [1..n-1]
Bước 3: Nếu S = n, số n là số hoàn thiện
program ct;
uses crt;
var N,i:integer;
S:longint;
begin clrscr;
writeln(‘Nhap so N: ‘); readln(N);
S:=0;
for i:=1 to N-1 do
S:=S+i;
if S=N then writeln(N,’ la so hoan thien’)
else writeln(N,’ khong la so hoan thien’);
readln;
end.
Học tốt!
program oken;
uses crt;
var n,s,i: longint;
begin
clrscr;
write(‘Nhap 1 so: ‘); readln(n);
for i:=1 to n-1 do
s:=s+i;
if s=n then
writeln(n,’ la so hoan thien.’)
else
writeln(n,’ khong phai la so hoan thien.’);
readln;
end.