Question

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

Answer 1

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

Answer 2

Program Digit;
Const min = 1;
Var N, sum, i: Integer;
Begin
Write('N = ');
ReadLn(N);
If N <= min Then
WriteLn('Число N должно быть больше ', min)
Else
Begin
sum := 0;
For i := min To N - 1 Do
If N Mod i = 0 Then
sum := sum + i;
If N = sum Then
WriteLn('Число ', N, ' равно сумме своих делителей')
Else
WriteLn('Число ', N, ' не равно сумме своих делителей');
End;
ReadLn;
End.

Answer 3

Для решения задачи нужно проверить, равно ли данное число n сумме всех его делителей.

Для этого введем переменную "сумма" и инициализируем ее нулем. Затем, используя цикл, переберем все числа от 1 до n-1 и проверим, является ли каждое из них делителем числа n. Если число является делителем, то добавим его к переменной "сумма".

После завершения цикла проверим, равно ли число n полученной сумме. Если равно, то число n равно сумме своих делителей, иначе - не равно.

Вот пример решения данной задачи на языке Pascal:

var
  n, i, сумма: integer;
begin
  write('Введите число n: ');
  readln(n);
  
  сумма := 0;
  
  for i := 1 to n-1 do
  begin
    if n mod i = 0 then
      сумма := сумма + i;
  end;
  
  if n = сумма then
    writeln('Число n равно сумме своих делителей.')
  else
    writeln('Число n не равно сумме своих делителей.');
end.

В данном примере пользователю будет предложено ввести число n, затем программа проверит, равно ли оно сумме своих делителей и выведет соответствующее сообщение на экран.