Сформировать массив простых множителей заданного числа (программа Паскаль)
Вопрос посетителя
Сформировать массив простых множителей заданного числа
Ответ эксперта
type
mas=array[1..100] of integer;
var
a:mas;
n,k,c,i:integer;
begin
repeat
write(‘n=’);
readln(n);
until n>1;
c:=0;
k:=2;
while n<>1 do
if n mod k=0 then
begin
inc(c);
a[c]:=k;
n:=n div k;
end
else
k:=k+1;
for i:=1 to c do
write(a[i]:4);
end.