ответ нет, равенства здесь нигде не будет
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
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("ответ неверный")
66677рре566773839747899374