Задали по информатике в pascal : на вход программы сведения о температуре за первую неделю сентября. составить программу, определяющую среднюю температуру за первую неделю сентября. разрешается использовать не более трёх переменных в программе.

Var
t,st:real;
i:integer;
begin
for i:=1 to 7 do begin
readln(t);
st:=st+t;
end;
writeln('Средняя температура за первую неделю сентября: ',st/7,' °C');
end.

bank_ques = {}

#Создание вопросов:

# bank_ques["сам вопрос"'] = "ответ на него", вопрос и ответ в виде строки, даже если это число

bank_ques["2*2"] = "4"

bank_ques["3*3"] = "9"

bank_ques["4*4"] = "16"

bank_ques["5*5"] = "25"

bank_ques["6*6"] = "36"

#Вопросов может быть неограниченное количество

# Также генерировать вопросы можно как в самом коде, так и сделать в цикле, но тут уже как хотите

for question in bank_ques:

   print(question)

   answer = input("ответ: ")

   if answer == bank_ques[question]:

       print("правильно")

   else:

       print("ответ неверный")

Пояснения

N - количество символов в алфавите (включая пробелы и другие символы)

k - колличество букв в сообщении (в данном случае строки умножаем на кол-во букв в строке)

i - колличество бит, выделенных под кодированние одного символа

V - объем сообщения

формула - запомнить на будущее для более простых вычислений

N=16

k=12*20=240

v=?

Решение

1)N=2 в степени i (формула), значит 16=2 в степени 4, значит i=4 бит

2)V=k*i(формула), значит при k=240 , i=4, V=240*4=960 бит = 120 байт

ответ: 960бит, или 120байт