Текст, таблицы и рисунки (но это уже исходя из типа документа).
===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
Метод подбора предельно прост и туп. В первой колонке набрасываешь ряд чисел, к примеру, от -10 до 10 (потом при необходимости изменишь масштаб). Во второй пишешь само уравнение (в твоём случае: "=A1^2+3*A1-3-1"). Протягиваешь на ту же высоту. Ищешь, где оно равно или наиболее близко к нулю. Так, сразу стало видно, что корни этого уравнения: -4 и 1.
Алгоритм:
1. присвоить значение х, д
2. вычислить 5х-37
3. у= 5х-37 значение поместить в ячейку
4. задать х=х+д
5 перейти к пункту 2
Const Sz = 1000; var a: array [1..Sz] of integer; a1: array [1..Sz] of integer; a2: array [1..Sz] of integer; a3: array [1..Sz] of integer; M: integer; N: integer; i: integer; k: integer;begin read(M); readln(N); for k:=1 to N do begin read(a[i]); readln(a1[i]); if (a[i]<>0) then a3[i]:=1 else a3[i]:=0; end; for k:=1 to N do begin if(a3[i]<>0) then begin for i:=1 to i do begin if(a3[k]=0) then d[i]:=1; if (a2[k]=i) then d[k]:=0; end; writeln(a3[i]) end;end;end.
вроде так