С, ! 1. вычислите значения выражения у=5х в 7 степени -4х²+3 (это нужно в программе паскаль сделать)

Объяснение:

для чайников:

Program FuncYX;

var

x, y : real;

begin

Write('Input X: ');

ReadLn(x);

y := 5*x*x*x*x*x*x*x-4*x*x+3;

WriteLn('Y = ',y:10:3);

end.

2. Для продвинутых:

Program FuncYX;

var

x, y : real;

begin

Write('Input X: ');

ReadLn(x);

if x > 0 then y := 5 * exp(7 * ln(x)) - 4 * sqr(x)+3

else if x < 0 then y := 5 * exp(7 * ln(abs(x))) - 4 * sqr(x)+3;

WriteLn('Y = ', y:10:3);

end.

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.

Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную

Получается вот так:
21 = 10101
2=10
2002 = 11111010010

В итоге:
10101.10.11111010010

#arr = [*map(int, input().split(' 0')[0].split())]  если числа вводятся в строчку , то раскомментируйте и используйте эту строку, а инициализацию массива arr и цикл while закомментируйте

arr = []

while 1:

   tmp = int(input())

   if tmp != 0:  # Читаем сколько угодно чисел пока не будет ноль

       arr.append(tmp)

   else:

       break

s = 0  # сумма двузначных чисел

k = 0  # количество двузначных чисел

for i in arr:

   if 10 <= i <= 99:  # итерируемся по циклу и если число двузначное

       s += i  # то прибавляем его к сумме

       k += 1  # счетчик двузначный чисел увеличиваем на один

print(s/k) if k > 0 else print('NO') #если количество двузначных > 0 то выводим среднее арифметическое s/k, если нет то выводим NO