Question

Viết chương trình kiểm tra số hoàn toàn

Answer 1

Số hoàn toàn là sao bạn?

Answer 2

PROGRAM SoHoanHao;
USES CRT;
VAR n:INTEGER;

FUNCTION KiemTra(x:INTEGER):BOOLEAN;
VAR tam,i:INTEGER;
BEGIN
tam:=0;
FOR i:= 1 TO (x DIV 2) DO
IF x MOD i = 0 THEN tam:=tam+i;
IF tam = x THEN KiemTra:=TRUE
Else KiemTra:=False;
END;

BEGIN
Clrscr;
Write('Nhap so can kiem tra ');Readln(n);
IF KiemTra(n) THEN
Writeln('So ',n,' la so hoan hao')
ELSE
Writeln('So ',n,' khong phai la so hoan hao');
Readln;
END.

Answer 3

số hoàn toàn là số hoàn hảo đó