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 14/08/2021 Bởi Eden 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
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ình luậ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 Bình luận
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.