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.
Удачи!
var a1, a5, an, d, sum, n : integer;
begin
readln(a1, a5, n); {получаем на вход первый и пятый члены прогрессии и число n}
d := (a5 - a1) div 4; {Находим разность прогрессии}
an := a1 + (n - 1) * d; {Находим член прогрессии с номером n}
sum := ((a1 + an) * n) div 2; {Находим сумму первых n членов прогрессии}
writeln('n-ый член прогрессии: ', an);
writeln('Сумма первых n членов прогрессии: ', sum);
end.