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