Предмет: Информатика,
автор: 2222444467888
Помогите решить задачу по информатике, по формуле Паскаля. Нужно найти числа, делители числа n
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.
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
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: lobsessedl
Предмет: Математика,
автор: feswex
Предмет: Физика,
автор: Аноним