25 ! заранее ! 21.ниже записан рекурсивный алгоритм f. procedure f(n: integer); begin writeln(n); if n < 4 then begin f(n + 1); f(n + 3 end end чему равна сумма всех чисел, напечатанных на экране при выполнении вызова f(1)?

print ('Добро в магазин "Магнит"')

# Форматированный вывод

print (''' Творог - номер 401, цена за пачку - 100 руб.

Молоко - номер 402

Йогурт - номер 403

Сметана - номер 404

Мороженое - номер 405

Колбаса - номер 501

Ветчина - номер 502

Паштет - номер 503

Стейк - номер 504

Пельмени - номер 505

Фасоль - номер 601

Тунец - номер 602

Маслины - номер 603

Ананасы - номер 604

Оливки - 605'''

)

n = 1

number_product = 0

price_product = 0

count_product = 0

total_sum = 0

check = ''

while n < 10:

print ( 'Введите через пробел номер, цену, количество купленного товара №{}'

. format(n))

number_product, price_product, count_product = map(float, input().split())

if number_product < 0 or price_product < 0 or count_product < 0:

break

else:

if 400 <= number_product <= 405:

temp_price = price_product * count_product - 0.5

elif 500 <= number_product <= 505:

temp_price = price_product * count_product * 0.7

elif 600 <= number_product <= 605:

temp_price = price_product * count_product * 0.85

total_sum += temp_price

total_sum_not_sale += price_product * count_product

check += f'''{number_product}, price - {price_product}, count - {count_product}

all_price - {temp_price} \n'''

n+=1

print(check)

print(f'Итог: {total_sum_not_sale}')

print(f'Скидка: {total_sum_not_sale - total_sum}')

print(f'К оплате : {total_sum}')

Объяснение:

Var a,b: array[1..10000] of integer; i,j,m,n: integer; begin write('n = '); readln(n); write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(10)+1;       write(a[i],' ');       end; writeln; write('полученный массив: '); for i: = 1 to n-1 do       begin       if a[i]> a[i+1] then m: =a[i]       else m: =a[i+1];       j: =m-1;       repeat       j: =j+1;       until (j mod a[i] = 0)and(j mod a[i+1] = 0);       b[i]: =j;       write(b[i],' ')       end; end.