А) Составьте, программу выводящую ** экран все делители натурального числа N

Question

А) Составьте, программу выводящую на экран все делители натурального числа N

Answer 1

Var A,i : Longint;
Begin
  Readln(A);
  For i:=1 to A do If A mod i = 0 then Writeln(i);
end.

Comments

как её проверить?

---

Запустить, к примеру

---

Достаточно было проверять до корня из A

---

Да, достаточно, но само число тоже является делителем себя.

---

Единица и само число - это тривиальные решения, они обычно не учитываются. А когда надо, их никто не мешает вывести до и после цикла соответственно - они же известны.

---

Но это добавит пару строчек кода.

---

Если Вы гонитесь за лаконичностью, то видимо догадываетесь, что есть решение гораздо короче