Помогите, пожалуйста решить задачу в Паскале! Однажды первокласснику Вовочке задали задание сложить из спичек прямоугольник, и вычислить его площадь. С заданием Вовочк...

- 08 January 2021
- Автор: 987654342567
Помогите, пожалуйста решить задачу в Паскале!
Однажды первокласснику Вовочке задали задание сложить из спичек прямоугольник, и вычислить его площадь. С заданием Вовочка справился, однако заметил, что из одного и того же количества спичек можно сложить разные прямоугольники, а иногда, чтоб сложить прямоугольник, не удается использовать все спички. Например из 14 спичек можно сложить прямоугольники со сторонами 1 и 6, 2 и 5, 3 и 4. Естественно, Вовочке хочется сложить прямоугольник максимальной площади, но это для него слишком сложная задача. Напишите программу, которая по данному количеству спичек определит, какой максимальной площади можно составить прямоугольник из этих спичек (спички ломать не разрешается)
- 08 January 2021
- Ответ оставил: xerex21
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.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
На сегодняшний день (27.01.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Сообщение записанное буквами 32 символьного алфавита содержит 20 символов. Чему равен информационный объём этого сообщения в байтах? Объем видеопамяти для хранения страниц изображения при условии, что разрешающая способность двух с дисплея плана 640*350 пикселей, а количество используемых цветов-16? Комитет можно составить из 3 или 5 судей. Есть 5 кандидатов, точность предсказаний которых приведена в таблице. Составьте ансамбль судей, имеющий наибольшую из возможных точность предсказания. В ан... 16. Шифр кодового замка является двузначным числом. Буратино забыл код, но помнит, что сумма цифр этого числа, сложенная с их произведением, равна самому числу. Напишите все возможные варианты кода... S<13 и не s чётное Получено сообщение, информационный объем которого равен 32 битам. Чему равен этот объем в байтах Каждый переданный кодовый символ может принят ошибочно с фиксированным вероятностью P Решать задачку по этой формуле P(zj/Uk) = P/N-1 при j≠k I-p при j=k В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны 7, 2, 8, 4, 3, 9, 5, 1, 6. Между н... Кто может подсказать почему не работает секундомер? (не добирает 60 секунд следовательно не переходит на следующую минуту) язык Python import time from tkinter import * from datetime import datetim... Pyhon (Информатика) Решить задачу: На тренировках спортсмен ежедневно пробегает некоторую дистанцию, с каждым днем увеличивая ее на 10%. Составить программу, определяющую по расстоянию, преодоленн... совокупность средств и правил взаимодействия человека с компьютером Что такое информатика в ИБ кратко

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

Последние опубликованные вопросы

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 (ab>max)and ((2a)+(2b)<=n) then
max:=ab;
end;
end;
write('Максимальная площадь: ',max);
end.