Регистрация
ilyaxybaeshka
03.10.2021 08:59
Информатика
Есть ответ 👍

Напишите программу которая вводит натуральное число n и находит все совершенные числа в диапазоне от 1 до n pascal

199
344
Посмотреть ответы 2

Ответы на вопрос:

викатевишкамимимишка
викатевишкамимимишка
4,8(18 оценок)
Var  i, j, n, p: integer; begin  readln(n);   for i : = 1 to n do  begin    p : = 0;     for j : = i - 1 downto 1 do      if (i mod j = 0) then p : = p + j;     if p = i then writeln(i, '- совершенное число');   end; end.
мака2007
мака2007
4,6(99 оценок)

ответ:

объяснение: на листке

Популярно: Информатика