redra1n
1 2 3 4 5 6 7 8 10 12 14 15 20 21 24 28 30 35 40 42 56 60 70 84 105 120 140 168 210 280 420 840 (программа в паскале : var a,i:integer; begin readln(a); for i:=1 to a do if a mod i=0 then write(' ',i); end.)
7 votes Thanks 11
Виолетта123456789
Нет, мне нужно например: 840 = 1,2,3,4,5,6,7,8,10,12,14.15,20....дальше не знаю
redra1n
Могу составить программу в паскале , она будет выводить все делители для любого числа )
Answers & Comments
(программа в паскале :
var a,i:integer;
begin
readln(a);
for i:=1 to a do
if a mod i=0 then write(' ',i);
end.)