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

0 голосов
76 просмотров

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


Информатика (188 баллов) | 76 просмотров
Дан 1 ответ
0 голосов

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

(5.1k баллов)
0

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

0

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

0

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

0

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

0

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

0

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

0

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