Для решения данной задачи необходимо рассмотреть несколько случаев. 1. Если n = 0 и m = 0, то плоскость не разделяется и ответом будет 1. 2. Если n > 0 и m = 0, то через данную точку проходят n прямых, и они делят плоскость на n + 1 часть. Ответом будет n + 1. 3. Если n = 0 и m > 0, то через данную точку ни одна прямая не проходит, но можно построить m окружностей. Каждая окружность разделяет плоскость на две части, поэтому ответом будет 2^m. 4. Если n > 0 и m > 0, то через данную точку проводятся n прямых и строятся m окружностей. Предположим, что все прямые и окружности пересекаются в точке X. Тогда плоскость разделяется на следующие области: - Внутри каждой окружности. Всего таких областей будет m. - Внутри каждой пары окружностей. Всего таких областей будет C(m, 2). - Внутри каждой тройки окружностей. Всего таких областей будет C(m, 3). и так далее. Общее количество областей можно выразить следующим образом: Общее количество областей = 1 + n + C(m, 1) + C(m, 2) + C(m, 3) + ... + C(m, m). Для вычисления биномиальных коэффициентов можно использовать формулу Паскаля: C(n, k) = C(n-1, k-1) + C(n-1, k), где C(0, 0) = 1, C(n, 0) = 1 и C(n, n) = 1. Напишем программу на языке PascalABC.NET, решающую данную задачу: program DividePlane; function BinomialCoefficient(n, k: Integer): Integer; var i, j: Integer; coef: array[0..100, 0..100] of Integer; begin for i := 0 to n do coef[i, 0] := 1; for i := 1 to n do for j := 1 to k do coef[i, j] := coef[i-1, j-1] + coef[i-1, j]; Result := coef[n, k]; end; var n, m: Integer; totalRegions: Int64; begin Readln(n, m); if (n = 0) and (m = 0) then totalRegions := 1 else if (n > 0) and (m = 0) then totalRegions := n + 1 else if (n = 0) and (m > 0) then totalRegions := Int64(1) shl m // эквивалентно 2^m else begin totalRegions := 1; for i := 1 to m do totalRegions := totalRegions + BinomialCoefficient(m, i); totalRegions := totalRegions + n; end; Writeln(totalRegions); end.