<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество спичек:');
var (n2,n4):=(n div 2, n div 4);
Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.
<u>Пример</u>
Количество спичек:1 4
Максимальная площадь: 12
<span>Понятие множества, подобно понятиям точки, числа и т.д., не сводится к другим понятиям математики и не определяется. Вместо определения этого понятия приведем примеры. Можно говорить о множестве всех учеников данной школы, о множестве всех людей на Земле, о множестве всех клеток человеческого тела, о множестве всех картофелин на картофельном поле, о множестве всех треугольников на плоскости, множестве целых числе, множестве всех точек данного квадрата и т.д.</span>
Существует формула, которая связывает между собой количество возможных информационных сообщений N и количество информации I, которое несет полученное сообщение:
N = 2 в степени I, следовательно
8 = 2 в степени 3, следовательно 3 - количество информации которое несёт одна буква этого алфавита.
Var a,b,c,d:integer;
begin
readln(a,b,c);
d:=a+b+c;
writeln(d);
<span>end.</span>