80

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

23 февраля 2023

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

категория: информатика



38

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;

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


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...