Помогите, пожалуйста решить задачу в Паскале!Однажды первокласснику Вовочке задали задание
Помогите, пожалуйста решить задачку в Паскале!
Однажды первокласснику Вовочке задали задание сложить из спичек прямоугольник, и вычислить его площадь. С заданием Вовочка совладал, однако увидел, что из 1-го и того же количества спичек можно сложить различные прямоугольники, а иногда, чтоб сложить прямоугольник, не удается использовать все спички. Например из 14 спичек можно сложить прямоугольники со сторонами 1 и 6, 2 и 5, 3 и 4. Естественно, Вовочке хочется сложить прямоугольник наибольшей площади, но это для него очень трудная задачка. Напишите программку, которая по данному количеству спичек обусловит, какой наибольшей площади можно составить прямоугольник из этих спичек (спички разбивать не разрешается)
// Внимание! Если программка не работает, обновите версию!
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
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*bgt;max)and ((2*a)+(2*b)lt;=n) then
max:=a*b;
end;
end;
write('Наибольшая площадь: ',max);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.