1) составьте программу вычисления произведения чисел от 1 до 10 (1*2*3*..*) 2)составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10 3)составьте программу, которая находит сумму квадратов чисел от 1 до 10

Var p,i,s: integer; begin p: =1; for i: = 2 to 10 do       p: =p*i; writeln('1: ',p); p: =1; s: =0; for i: = 1 to 10 do       if i mod 2 = 0 then s: =s+i       else p: =p*i; writeln('2: '); writeln('s = ',s); writeln('p = ',p); s: =0; for i: = 1 to 10 do       s: =s+i*i; writeln('3: '); writeln('s = ',s); end.

от +10 до +30 21 значение, n=21

используем формулу n=2^i

тогда i=5бит (с избытком) 1измерение

сделано 27измерений, 27*5=135бит

ответ: 135 бит.

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.