Напишите логическую функцию, которая определяет, верно ли, что число n-совершенное, т.е. равно сумме своих делителей, меньших его самого.
267
308
Ответы на вопрос:
Var n,i,s: integer; begin readln(n); for i: =1 to n do if n mod i =0 then s: =s+i; if s = n then write('верно') else write('не верно'); readln end.
Популярно: Информатика
-
alaska12225.05.2022 13:56
-
Bredovik27.01.2023 14:56
-
ВерочкаЛатушкина10.01.2021 12:51
-
настя14о01.08.2020 15:43
-
СергеЙ8900902164516.06.2023 03:32
-
VAMPIRKILLER23.05.2023 00:14
-
мошкада19.02.2020 22:50
-
Kononovichlika05.02.2020 02:11
-
дмитрий46216.11.2022 10:19
-
lakomkin200716.03.2022 19:44