Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.

Var       i, n, sum: integer; begin       writeln('введите n');       readln(n);       ///тут возможны два решения, с циклом и без. вот первое:       sum : = 0;       for i : = 1 to n do               if i mod 2 = 0 then                       sum : = sum + i;       writeln(sum);             ///второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:       if n mod 2 = 1 then n : = n - 1;       + n) div 2) * n div 2); end.

компьютер входит в состав бытовой техники.

компьютер является надсистемой для компьтерных программ.

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.