N = int(input())
s = 1
for i in range(2, n//2+1):
if n % i == 0: s = s+i
if s == n:
print("Совершенное")
else:
print("Не совершенное")
Пример:
6
<span>Совершенное</span>
473(8) = 4*8^2 + 7*8^1 + 3*8^0 = 4*64 + 7*8 + 3 = 256 + 56 + 3 = 315(10)
Нина - 23 апреля (если дети одногодки то тут какая-то ошибка, так как на Нину остаётся только 23 апреля, но она должна быть старше Коли, однако решение возможно если упущено условие что один из детей старше на год)
Маша - 21 марта
Коля - 23 марта
Таня - 19 мая
Петя - 4 мая
S, a - должны быть целочисленными, а не вещественными.
Ответ:
PascalABC.NET
begin
var arr := ArrRandom(15, 5,500);
arr.Where(x -> x mod 3 = 0).Where(x -> x mod 9 = 0).Product.Println;
end.