2^i=N, где N - объём информации, а i - кол-во бит, которым кодируется единица информации. N=16*8=128))) не за что
Var
a, n: integer;
begin
n:=0;
repeat
readln(a);
if (a mod 3 = 0) and (a mod 6 <> 0) then
inc(n, a);
until a = 0;
writeln(n);
<span>end.</span>
Ну что знаю подскажу
3. 1 вариант
4. 1 вариант (т.е. 18)
6. Варианты 1;2;4
7. Вариант 2
Var x, a : real;
begin
readln(a);
x := arctan(1/(power(E, a) + 1)) + PI;
writeln(x);
end.