Kết quả tìm kiếm

  1. Trần Duy Tiến

    Tin 11_Viết thuật toán

    1. procedure pt(n:integer); var i:byte; begin i:=2; while (n<>1) do if (n mod i = 0) then begin n:=n div i; write(i,#32); end else i:=i+1; end;
Top Bottom