0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
18
2
Program timso;
uses crt;
Var n:longint;
Function sht(a:longint):boolean;
var i,t:longint;
kq:boolean;
begin
t:=0;
kq:=false;
For i := 1 to a-1 do If (a mod i = 0) then inc(t,i);
If t = a then kq:= true;
sht := kq;
end;
BEGIN
clrscr; Readln(n);
If sht(n) then Writeln(YES) else writeln(NO);
Readln;
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
18
845
2
hay thì bình chọn cho mik nha (câu trả lời hay nhất á)