viết chương trình nhập vào từ bàn phím số nguyên dương n . kiểm tra xem n có phải số hoàn hảo không
2 câu trả lời
Program jcungdc ;
Uses crt;
Var n,i,s : longint;
Begin
Write('nhap so n');
Readln(n);
S:=0;
For i:=1 to n-1 do
If (n mod i=0) then s:=s+i;
If s=n then write(n,' la so hoan chinh') else write(n,'khong phai la so hoan chinh');
Readln
End.
- 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
Câu hỏi trong lớp
Xem thêm