Пример цикла, который не выполняется ни разу.

//c++ #include < iostream> #include < cmath> using std: : cout; using std: : cin; using std: : endl; int fun(int val1, int val2) { cout < < "max = " < < val1 < < endl; cout < < "min = " < < val2 < < endl; cout < < val1 < < "^3 = " < < val1 * val1 * val1 < < endl; cout < < "√" < < val2 < < " = "< < sqrt(val2) < < endl; } int main() { int val1,val2; cin > > val1 > > val2; if(val1 > val2) { fun(val1, val2); }else{ fun(val2, val1); } return 0; }

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