Pascal abc: составьте программу вычисления суммы четных чисел в диапазоне от 1 до 100

Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе

n = 64 - 32 = 32

i = log₂ 32 = 5 бит

количество вопросов, которые нужно задать равно 5