四．阅读程序（共4题，每题8分，共计32分）

1．program progam1;

var

u: array [0..3] of integer;

a, b, c, x, y, z: integer;

begin

read(u[0], u[1], u[2], u[3]);

a := u[0] + u[1] + u[2] + u[3] - 5;

b := u[0] * (u[1] - u[2] div u[3] + 8);

c := u[0] * u[1] div u[2] * u[3];

x := (a + b + 2) * 3 - u[(c + 3) mod 4];

y := (c * 100 - 13) div a div (u[b mod 3] * 5);

if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2;

z := (a + b + c – x - y) * 2;

writeln(x + y - z);

end.

输入：2 5 7 4

输出：             。

2．program program2;

var

  i, number, ndata, sum: integer;

  data: array[1..100] of integer;

procedure solve(s, sign, n: integer);

var i: integer;

begin

    for i := s to ndata do begin

        inc(sum, sign * (number div (n * data[i])));

        solve(i + 1, -sign, n * data[i]);

    end;

end;

begin

  read(number ,ndata);

  sum := 0;

  for i := 1 to ndata do read(data[i]);

  solve(1, 1, 1);

  writeln(sum);

end.

输入：1000 3 5 13 11

输出：             。

3．program program3;

var c: array[1..3] of string[200];

    s: array[1..10] of integer;

    m, n, i: integer;

procedure numara;

var cod: boolean;

     i, j, nr: integer;

begin

  for j := 1 to n do begin

     nr := 0; cod := true;

     for i := 1 to m do

         if c[i, j] = '1' then begin

            if not cod then begin

                cod := true; inc(s[nr]); nr := 0;

            end

         end

         else begin

            if cod then begin

                nr := 1; cod := false;

            end

            else inc(nr);

         end;

     if not cod then inc(s[nr]);

  end;

end;

begin

  readln(m, n);

  for i := 1 to m do readln(c[i]);

  numara;

  for i := 1 to m do

     if s[i] <> 0 then write(i, ' ', s[i], ' ');

end.

输入：

3 10

1110000111

1100001111

1000000011

输出：             。