Играли в футбол. вдруг мяч угодил в окно тёти маши. на землю упали осколки. когда тётя маша стала расспрашивать, кто это сделал, то выяснилось, что из трёх только один сказал правду, а двое других сказали неправду. кто разбил окно? "3 класс" мальчиков звали ваня, рома и серёжа

Тот кто видел кто разбил окно

javascript:

var массив = [], n = prompt("n: "), m = prompt("m: ");

for (let сч1 = 0; сч1 < n; сч1++) {

  массив.push();

  for (let сч2 = 0; сч2 < m; сч2++)

    массив[сч1] = (function (от, до) { return math.round(от - 0.5 + math.random() * (до - от + 1)); })(1, 999);

}

var разрядов = [0, 0, 0], с_одинаковыми = 0;

for (let сч = 0; сч < n; сч++)

  массив[сч].foreach(function (зн) {

    разрядов[зн < 10 ? 0 : разрядов < 100 ? 1 : 2]++;

    let разр = [зн / 100 | 0, зн / 10 % 10, зн % 10];

    if (разр[0] == разр[1] || разр[0] == разр[2] || разр[1] == разр[2])

      с_одинаковыми++;

  });

alert(разрядов + " " + с_одинаковыми);

Pascalabc.net 3.4.2, сборка 1863 от 10.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n, a, b, c, d: integer;

  readln(n, a, b, c, d);

  if a > c then (a, b, c, d) : = (c, d, b, a);

  var s : = 1.to(a - 1);

  if b < c then // ( ) [ ]

    s : = s + b.downto(a) + (b + 1).to(c - 1) +

        d.downto(c) + (d + 1).to(n)

  else

  if d < b then // ( [ ] )

  begin

    s : = s + seqgen(c - a, t -> b - t) +

        seqgen(d - c + 1, t -> t + a + b - d) +

        seqgen(b - d, t -> a - t + b - d - 1) + (b + 1).to(n)

  end

    else // ( [ ) ]

  begin

    s : = s + seqgen(c - a, t -> b - t) +

        seqgen(d - b, t -> d - t) + seqgen(b - c + 1, t -> a + t) +

        (d + 1).to(n);

  end;

  s.println;

end.