Какое значение будет принимать переменная у после выполнения программы: var x, y: integer; begin y: =1 ; x: =15 repeat y: =y*x; x: =x-3 until x< 5; writeln (' y=' , y); end x y y=y*x 15 1 15 заполните таблицу до конца

Не знаю что за :
"x y Y=y*x
15 1 15"
Но у меня получилось вот такое вот число : 9720

ответ: См. снимки экрана (код в объяснении)

Объяснение:

Первая программа:

from random import randint

def geo_mean(arr):

   m = 1

   for x in arr:

       m *= x

   res = m ** (1 / len(arr))

   return res

def even_numb(arr):

   sum = 0

   for x in arr:

       if not x % 2:

           sum += x

   return sum

   res = m ** (1 / len(arr))

   return res

arr = []

for i in range(50):

   arr.append(randint(1, 10))  # Геренрирование случайных чисел

print(arr, '\n')

print("G =", geo_mean(arr))  # Среднее геометрическое

if even_numb(arr) < 240:  # Сумма четных чисел

   print("Сумма четных элементов равна", even_numb(arr))

Вторая программа:

def numb_words(s):

   s = s.split()

   l = len(s)

   if l >= 3:

       return True

def numb_letters(a):

   return len(a) - a.count(' ')

a = input("Введите фразу: ")

if (numb_words(a)):

   if numb_letters(a) < 10:

       print("Хорошо")

   else:

       print("Не хорошо")

Есть много разных решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
 if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.

Пример:
n=123432
Да

Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
 begin
 m:=n mod 10;
 n:=n div 10;
 n1:=n;
 while n1>0 do
   begin
    m1:=n1 mod 10;
    if m=m1 then b:=1;
    n1:=n1 div 10;
    end;
 end;
if b=1 then writeln('Да') else writeln('Нет');
end.