Пусть размеры прямоугольного отверстия а - ширина, h - высота
Сначала среди размеров X, Y, Z - ищем самое большое: RazMax.
Если RazMax <a, (пусть это будет Z), то
среди Х и Y подбираем такое, чтобы оно меньше или равно h
Eсли RazMax > a, то среди X и Y ищем НАИБОЛЬШЕЕ.
Если это НАИБОЛЬШЕЕ меньше ширины, то проверяем, чтобы среди оставшихся измерений хотя бы одно было меньше или равно h.
Если все это не годится, то кирпич не пролезет в это отверстие...
Var
i: integer;
ar: array[1..8]of integer;
begin
for i := 1 to 8 do read(ar[i]);
for i := 1 to 8 do
if(i mod 2 = 0) then write(ar[i], ' ');
end.
1)SOFT
В кодировке ASCII
2)ПАПКА
В кодировке КОИ-8
Ответ: 12112
....................................
Program qq;
uses crt;
var p, d, z, i: integer; k:real;
begin
writeln('Введите период для отрастания травы в днях:');
readln(p);
writeln('Введите потребное количество загонов:');
readln(z);
for i:=1 to 5 do
begin
d:=i; // переменная дней изменяется, как дано в условии от 1 до 5 дней
k:=round(p/d+z); //процедура round округляет по всем правилам число загонов. Ведь весьма нелогично строить, например 3,3333 загона:)
writeln ('Для количества дней пастьбы - ', d,' требуется загонов - ',k);
end;
end.<span>
</span>