a = 'A , B , C , D , E , F , G , H , I , J , K , L , M , N , O , P , Q , R , S , T , U , V , W , X , Y , Z'
a = a.replace(',', '')
a = a.replace(' ', '')
for k in a:
for l in a:
for m in a:
for n in a:
print(k + l + m + n)
насчет повторов не уверен, если будут, то:
l = []
a = 'A , B , C , D , E , F , G , H , I , J , K , L , M , N , O , P , Q , R , S , T , U , V , W , X , Y , Z'
a = a.replace(',', '')
a = a.replace(' ', '')
for k in a:
for l in a:
for m in a:
for n in a:
l.append(k + l + m + n)
l = set(l)
for i in l:
print(i)
10
Объяснение:
Сначала проверяем условие, где нам не нужно использовать А -
(t>11): оно выполнится только в одном случае, при вводе чисел (5,12)
Значит нам остаётся выполнить первое условие, для правильного выполнения задания.
(s>A): находим какое максимальное число s вводится пользователем.
(12,6) , s=12 . Значит если использоваться A=11 , то это условие выполнится, но только оно. В сумме будет уже 2 раза написано слово "Yes' , нужно 3. Ищем следующее максимальное s, не считая пару (12,6)
(11,-5) . Нужно взять A меньше 11, чтобы выполнилось условие (s>A) .
если А = 10, условие выполняется, и только оно( не считая предыдущие)
В сумме получается программа выдаст 3 раза слово "Yes" при А=10
// PascalABC.NET версия 3.6.2 сборка 2406 от 14.04.2020
begin
(1..100).Select(p -> p.IsEven ? 2 * p : 3 * p).Print
end.