var a,b,c:integer;
begin
readln(a,b,c);
if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')
end.
Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.
запишем условие: N=4, строк=30, символов=70, страниц=5, I-?
решение: вычислим общее кол-во символов К=30*70*5=10500
определим вес одного символа N=2^i, 2^2=2^i, i=2бита
найдем объем информации I=K*i=10500*2=11000 бит
<em>VAR</em>
<em> i, sum: Integer;</em>
<em> a: Array [1..20] of Integer;</em>
<em>BEGIN</em>
<em> for i:= 1 to 20 do </em>
<em> Read(a[i]);</em>
<em> </em>
<em> sum := 0;</em>
<em> for i := 1 to 20 do</em>
<em> sum := sum + a[i];</em>
<em> </em>
<em> Write(sum);</em>
<em>END.</em>
В данном случае носителем информации является берестяная грамота.