for a:= 2 to 30000 do {цикл для проверки первых чисел}
begin
s:=0;
for i:= 1 to a-1 do {находим все делители числа а,
исключая само число}
if a mod i = 0 then s:= s+i; {находим сумму делителей числа а}
s1:=0;
for b:= 1 to s-1 do {цикл для проверки вторых чисел, которые являются суммой делителей первого числа}
if s mod b = 0 then s1:= s1 +b; {находим все делители числа s (сумма делителей числа а)}
if (s1=a) and (s< >a) then writeln (a, ' ', s); {сумма делителей суммы делителей числа а должна быть равна числу A, а сумма делителей числа A не должна быть равна этому числу}
from itertools import *
m = 0
p = 0
for i in range(2,5):
n = 0
word = product('ИА',repeat=i) ## i -это кол-во символов в слове
for letter in word:
if letter.count('И') <3 and letter.count('А') <3:
n += 1 ##кол-во слов, где каждая гласная встречается не более двух раз
if i !=2:
p +=n ## кол-во слов длиной более двух символов без согласных
m+=n*2 ## кол-во слов длиной более двух символов с 2мя согласными вначале слова
print(m+p)
Объяснение:
надеюсь питон знаешь,мб можно и короче написать
Объяснение:
program friendfullNumbers;
uses crt;
var a: longint;
b, i, s, s1: integer;
{a - первое число;
b - делители числа s;
i - делители числа a;
s - сумма делителей первого числа;
s1 - сумма делителей s}
begin
clrscr;
for a:= 2 to 30000 do {цикл для проверки первых чисел}
begin
s:=0;
for i:= 1 to a-1 do {находим все делители числа а,
исключая само число}
if a mod i = 0 then s:= s+i; {находим сумму делителей числа а}
s1:=0;
for b:= 1 to s-1 do {цикл для проверки вторых чисел, которые являются суммой делителей первого числа}
if s mod b = 0 then s1:= s1 +b; {находим все делители числа s (сумма делителей числа а)}
if (s1=a) and (s< >a) then writeln (a, ' ', s); {сумма делителей суммы делителей числа а должна быть равна числу A, а сумма делителей числа A не должна быть равна этому числу}
end;
end.