История изменений

Исправление alfix, 04.06.15 23:29 (текущая версия) :

const
  g = 1;
  s = 0;
  box: array [0..2, 0..1] of integer = ((g, g), (g, s), (s, s));

var
  a, c: integer;
  result: array [false..true] of integer;

begin
  for c := 0 to 999 do
  begin
    a := random(3);
    if (box[a, 0] = g) and (box[a, 1] = g) then inc(result[true]) //вторая тоже, как и первая, золотая (т. е. они обе золотые)
    else inc(result[false])
  end;
  Writeln(result[true], ', ', result[false])
end.

326, 674

Исправление alfix, 04.06.15 23:27:

const
  g = 1;
  s = 0;
  box: array [0..2, 0..1] of integer = ((g, g), (g, s), (s, s));

var
  a, c: integer;
  result: array [false..true] of integer;

begin
  for c := 0 to 999 do
  begin
    a := random(3);
    if (box[a, 0] = g) and (box[a, 1] = g) then inc(result[true]) //вторая тоже, как и первая, золотая
    else inc(result[false])
  end;
  Writeln(result[true], ',', result[false])
end.

326,674

Исходная версия alfix, 04.06.15 23:25:

const
  g = 1;
  s = 0;
  box: array [0..2, 0..1] of integer = ((g, g), (g, s), (s, s));

var
  a, c: integer;
  result: array [false..true] of integer;

begin
  for c := 0 to 999 do
  begin
    a := random(3);
    if (box[a, 0] = g) and (box[a, 1] = g) then inc(result[true]) //первая оказывается золотой и вторая тоже золотая
    else inc(result[false])
  end;
  Writeln(result[true], ',', result[false])
end.

326,674