1. арифметическая прогрессия васе дали : в заданной последовательности чисел найти три подряд идущих числа, образующих возрастающую арифметическую прогрессию. вася решил написать программу, которая выводила бы тройку чисел, образующих возрастающую арифметическую прогрессию. васе написать такую программу. формат ввода в первой строке входного файла записано натуральное число n (3 ≤ n ≤ 1 000 000). во второй строке записано n неотрицательных целых чисел через пробел, каждое из которых не превосходит 1 000 000 000. формат вывода в выходной файл выведите три искомых числа. если ответов несколько, выведите те числа, которые расположены левее. если таких чисел нет, выведите -1. желательно на паскале

храним в памяти 3 последних считанных числа. для каждой такой тройки проверяем, верно ли, что a[i] - a[i - 1] = a[i - 1] - a[i - 2] > 0. если это так, выводим тройку, устанавливаем флажок found и выходим из цикла. если после завершения работы цикла found = false, то тройка не найдена, нужно вывести -1.

в pascalabc.net тип integer хранит числа до 2 с лишним миллиардов, все числа и разность чисел должны в нем поместиться.

код (pascalabc.net 3.4.2.1837):

begin

  var values : = new integer[3];

  var n : = readinteger;

  (values[1], values[2]) : = readinteger2;

  var prev_diff : = values[1] - values[0];

  var found : = false;

  for var i : = 3 to n do begin

    values[i mod 3] : = readinteger;

    var diff : = values[i mod 3] - values[(i - 1) mod 3];

    if (diff = prev_diff) and (diff > 0) then begin

      print(values[(i - 2) mod 3], values[(i - 1) mod 3], values[i mod 3]);

      found : = true;

      break;

    end;

    prev_diff : = diff;

  end;

  if not found then print(-1);

end.

компьютер входит в состав технической системы.

компьютер является надсистемой для ос.

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.