Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Чет про программирование / практика / 16) Разложение числа на простые множители

.docx
Скачиваний:
20
Добавлен:
25.04.2015
Размер:
12.79 Кб
Скачать

Разложение числа на простые множители

program chisla;

var N, I: Integer;

begin

Write ('N = ');

ReadLn (N); {ввод числа N}

Write (N, ' = 1');

i := 2;

while n <> 1 do begin

if n mod i = 0 then begin

write('* ', i);

n := n div i;

end else

inc(i);

end;

readln;

end.