Дано натуральное число N>1. Равно ли оно сумме своих делителей (включая единицу, но…

Question

80

Дано натуральное число N>1. Равно ли оно сумме своих делителей (включая единицу, но не включая себя)? НУЖЕН ЦИКЛИЧЕСКИЙ АЛГОРИТМ РЕШЕНИЯ ДАННОЙ ЗАДАЧИ ВПАСКАЛЕ.

в избранное ссылка

Знаете ответ?

atlas2 · Accepted Answer

38

atlas2

06 августа 2022

Max: =100for q: =2 to max dobeginsum: =0; for q1: =1 to q-1do if (q mod q1=0) then sum: =sum+q1; if q=sum then writeln (q,'-искомое'); end;

комментировать

в избранное ссылка отблагодарить