Question

Помогите, пожалуйста решить задачу в Паскале!
Однажды первокласснику Вовочке задали задание сложить из спичек прямоугольник, и вычислить его площадь. С заданием Вовочка справился, однако заметил, что из одного и того же количества спичек можно сложить разные прямоугольники, а иногда, чтоб сложить прямоугольник, не удается использовать все спички. Например из 14 спичек можно сложить прямоугольники со сторонами 1 и 6, 2 и 5, 3 и 4. Естественно, Вовочке хочется сложить прямоугольник максимальной площади, но это для него слишком сложная задача. Напишите программу, которая по данному количеству спичек определит, какой максимальной площади можно составить прямоугольник из этих спичек (спички ломать не разрешается)

Answer 1

Var a,b,n,max: integer;
begin
max:=0;
write('Количество спичек: ');
readln(n);
for a:=1 to n div 2 do 
begin
for b:=a to n div 2 do
begin
if (a*b>max)and ((2*a)+(2*b)<=n) then
max:=a*b;
end;
end;
write('Максимальная площадь: ',max);
end.

Answer 2

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество спичек:');
  var (n2,n4):=(n div 2, n div 4);
  Writeln('Максимальная площадь: ',n2=2*n4?n4*n4:n4*(n4+1))
end.

Пример
Количество спичек:1 4
Максимальная площадь: 12