Меня на день рождение пригласила новенькая а мы познакомились хорошо только вчера (в классе с 04.03.13) я её совсем не знаю придумайте отмазку токо не типо болею плохо себя чувствую

Скажи что уезжаешь))

  лазерные диски и дисководы лазерные дисководы используют оптический принцип чтения информации. на лазерных дисках cd (cd compact disk, компакт диск) и dvd (dvd digital video disk, цифровой видеодиск) информация записана на одну спиралевидную дорожку (как на грампластинке), содержащую чередующиеся участки с различной отражающей способностью. лазерный луч падает на поверхность вращающегося диска, а интенсивность отраженного луча зависит от отражающей способности участка дорожки и приобретает значения 0 или 1.

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

begin

  var n : = readinteger;

  var l : = new list< (integer, integer)> ;

  loop n do

  begin

    l.add(readinteger2)

  end;

  var k : = l.count;

  l : = l.distinct.tolist; // этап 1

  var k1 : = l.count;

  print(k - k1);

  (k, k1) : = (k1, 0); // этап 2

  var st : = new stack< integer> ;

  var m : = l.first[0]; // время

  for var i : = 1 to k - 1 do

    if l[i][0] < = m then

    begin

      st.push(i);

      inc(k1)

    end

    else m : = l[i][0];

  for var i : = 1 to k1 do

    l.removeat(st.pop);

  print(k1);

  (k, k1) : = (l.count, 0); // этап 3

  m : = l.first[1]; // температура

  for var i : = 1 to k - 1 do

    if abs(l[i][1] - m) > 10 then

    begin

      st.push(i);

      inc(k1)

    end

    else m : = l[i][1];

  for var i : = 1 to k1 do

    l.removeat(st.pop);

  println(k1);

end.

пример 6 10 5 8 5 8 5 8 5 12 25 13 10 2 1 1