А) Составьте, программу выводящую на экран все делители натурального числа N
Var A,i : Longint; Begin Readln(A); For i:=1 to A do If A mod i = 0 then Writeln(i); end.
как её проверить?
Запустить, к примеру
Достаточно было проверять до корня из A
Да, достаточно, но само число тоже является делителем себя.
Единица и само число - это тривиальные решения, они обычно не учитываются. А когда надо, их никто не мешает вывести до и после цикла соответственно - они же известны.
Но это добавит пару строчек кода.
Если Вы гонитесь за лаконичностью, то видимо догадываетесь, что есть решение гораздо короче