А) наибольшее 1100112 = 5110
б) наименьшее 1114 = 2110
<span>Вариант 2 номер пакета т.к. остальные не подходят</span>
var
m: Real;
i: Integer;
begin
m := 1.5;
for i := 1 to 7 do begin
WriteLn (i, ' сентября количество биомассы составляет ', m:10:7, ' т' );
m := m * 1.3;
end;
end.
X мальчиков и у девочек
всегда можно рассадить требуемым образом, кроме если количество мальчиков больше удвоенного числа девочек или если количество девочек больше удвоенного числа мальчиков
х - число мальчиков
у - число девочек
если х > 2*у - ответ НЕТ, ВЫХОД
иначе
{ если у > 2*х - ответ НЕТ, ВЫХОД
иначе - ответ ДА, ВЫХОД
}