На сайте временно установлен
новый скин AGU. Данный скин предназначен для сайта ФАМИКОН АГУ,
здесь я хочу протестировать его в работе. О найденных недочетах
сообщаем в Гостевой книге сайта.
Дано
натуральное число a. Требуется разложить это число на простые
множители.
Пример: a = 12345 Результат: 3 5
823
Вариант решения:
Code (Pascal):
var a, N: LongWord;
B: Boolean;
begin
ReadLn (a);
N := 2;
while a > 0 do
begin
B := True;
while N <= a div 2 do
begin
if a mod N = 0 then
begin
Write (N, ' ');
a := a div N;
B := False;
Break;
end; {if}
Inc (N);
end; {while}
if B then
begin
Write (a);
Break;
end; {if}
end; {while}
end.