viết chương trình nhập vào số nguyên dương N. Kiểm tra xem N có phải số hoàn hảo không? Biết số hoàn hảo có tổng các ước( bỏ chính nó) bằng nó

0 bình luận về “viết chương trình nhập vào số nguyên dương N. Kiểm tra xem N có phải số hoàn hảo không? Biết số hoàn hảo có tổng các ước( bỏ chính nó) bằng nó”

1. Program thichduockhong ;

   Uses crt;

   Var n,i,s : longint;

   Begin

   Write(‘nhap so nguyen duong 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 hao’) else write(n,’khong phai la so hoan hao’); 

   Readln

   End.

   Bình luận

2. Uses crt;

   var n,i,t:integer;

   begin

    clrscr;

    write(‘nhap n: ‘);readln(n);

    for i:=1 to n-1 do if n mod i=0 then t:=t+i;

    if t=n then write(‘ n la so hoan hao’) else write(‘n ko phai la so hoan hao’);

   readln;

   end.

   Bình luận