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; все что после // (два слэша) можно удалить, так пишутся комментарии в программе

1. делим a и b на 33.

2. округляем вверх (до следующего целого)

3. перемножаем округлённые числа.

4. делим на n.

5. округляем вверх.

 

формулой: x = [([a/33]+1)*( [b/33]+1) / n]   + 1

где [y] - целая часть числа y. 

мощность n=16

n=2^i где i-количество информации в символе

тогда i=4

информационный объем i равен i*k где k - количество символов в тексте

значит i =4*540=2160