Найти все делители натурального числа n
Ответы на вопрос
Ответил yasadc
0
uses crt;
var n,i:integer;
begin
readln(n);
for i:=1 to (n div 2) do
if n mod i=0 then writeln(i);
writeln(n);
end.
var n,i:integer;
begin
readln(n);
for i:=1 to (n div 2) do
if n mod i=0 then writeln(i);
writeln(n);
end.
Ответил ХодячаяЭнциклопедия
0
как этим пользоваться?
Новые вопросы