Предмет: Информатика, автор: 2222444467888

Помогите решить задачу по информатике, по формуле Паскаля. Нужно найти числа, делители числа n


ShirokovP: Есть Закон Паскаля
ShirokovP: Вы имели в виду язык программирования?
2222444467888: Да

Ответы

Автор ответа: ShirokovP
0
procedure factorize(n: longint);

var divisor: longint;
begin 
divisor := 2; 
while divisor * divisor <= n do    
if n mod divisor = 0 then
begin     
n := n div divisor;     
writeln(divisor);   
end       
else     inc(divisor); 
if n <> 1 then   writeln(n);
end;

var n: longint;
begin 
readln(n); 
factorize(n);
end.
Похожие вопросы
Предмет: Қазақ тiлi, автор: cococrashiha
Предмет: Математика, автор: feswex