Паллада залов Жуан лежал Адда
Пусь х и у - размеры площадки. Периметр = 200, значит 2х + у = 200, у = 200-2х Площадь f = xy = x(200-2x) = 200x - 2x^2 Надо найти максимум: f' = 0 f' = 200 - 4x x = 50, y = 200-2x=100 <span>Ответ: сетка огораживает 2 коротких стороны по 50м и одну длинную в 100м; площадь = 5000кв.м.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllLines('Pushkin.txt');
Writeln('*** Текст в файле ***',NewLine);
a.Println(NewLine);
var n:=a.Select(s->s.ToWords.Count).Where(k->k>0).Min;
a:=ReadLines('Pushkin.txt').Where(s->s.ToWords.Count=n).ToArray;
WriteLines('Result.txt',a);
Writeln(NewLine,'*** Новый файл ***',NewLine);
ReadLines('Result.txt').Println(NewLine)
end.
<u>Пример:</u>
*** Текст в файле ***
Если жизнь тебя обманет,
Не печалься, не сердись!
В день уныния смирись:
День веселья, верь, настанет.
Сердце в будущем живет;
Настоящее уныло:
Всё мгновенно, всё пройдет;
Что пройдет, то будет мило.
(А.С. Пушкин, 1825)
*** Новый файл ***
Настоящее уныло: