составить программу в PascalABC.NET Рассмотрите ряд натуральных чисел от 1 до 100. Каждое четное число в этом ряду увеличьте в 2 раза, а каждое нечетное – в 3 раза. Результат выведите на экран

// PascalABC.NET версия 3.6.2 сборка 2406 от 14.04.2020

begin

 (1..100).Select(p -> p.IsEven ? 2 * p : 3 * p).Print

end.

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