Я только начала разбираться в программировании. Так что не судите строго. Дана такая задача.
Дано натуральное число N. Необходимо разложить его на простые множители.
Формат входных данных
Во входном файле записано число N (2 \le N \le 100000).
Формат выходных данных
В выходной файл выведите искомые простые множители в порядке возрастания.
Примеры:
Вход
12
Выход
2 2 3
Вход
1030
Выход
2 5 103
Вот мое решение. Я уверена, что здесь есть недочеты. Помогите исправить.
var
m, n, i :integer;
f,g:text;
Begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
readln(f,n);
i:=2;
m:=n;
while(i<=n) do begin
if m mod i = 0 then begin
write(g,i);
m:=m div i;
end
else
inc(i);
end;
close(f);
close(g);
End.