2. Kompüterdəki qovluqlarla adi kağız qovluqların hansı ortaq və ferqli elametleri var?

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.

var

x,y: real;

begin

readln(x);

y: =7*sin(x)*sin(x)-0.5*cos(x);

writeln(y);

end.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.

v= 36864 бит/с

1 стр.= 2304 сим.* 8 бит= 18 432 бит

4 стр.= 18 432 бит* 4= 73 728 бит=s

t - ?

t= s/v

t= 73728 бит / 36 864 бит/c= 2

ответ: 2