Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Чет про программирование / практика / 16) Разложение числа на простые множители
.docxРазложение числа на простые множители
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.
Соседние файлы в папке практика