Ответы
Ответ дал:
1
Максимально простая реализация:
var
i, x : integer;
begin
readln(x);
i := 1;
while i <= x do
begin
if x mod i = 0 then
write(i, ' ');
i := i + 1;
end;
end.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
8 лет назад