Question

Viết chương trình nhập vào 1 số nguyên N in ra màn hình các số hoàn chỉnh nhỏ hơn hoặc bằng N.

Helpppppp meeeeeeee!!!!

Answer 1

{program bt_1;
uses crt;
Var:S ,n, i, j:longint;
Begin 
  clrsr;
  Write('Nhap n');Readln(n);
    For i:=1 to n do
    Begin
      S:=0;
      For j:=0 to i do
      if i mod j:=0 then S:=S+j;
      if S=2*i then Write (i:5);
    end;
readln;
end.
}

Answer 2

PASSCAL HAY???