Решение задач по информатике в программе Excel Пошивочная мастерская планирует выпуск двух видов костюмов мужских и женских. На женский костюм требуется 1 м шерсти, 2 м лавсана и 1 человеко-день трудозатрат. На мужской костюм – 3,5 м шерсти, 0,5 м лавсана и 1 человеко-день трудозатрат. Всего имеется 350 м шерсти и 240 лавсана, 150 человеко-дней трудозатрат. Предусматривается выпуск не менее 110 костюмов, причем, необходимо обеспечить прибыль не менее 1400 рублей. Определите оптимальное количество костюмов каждого вида, если прибыль от реализации женского костюма составляет 10 рублей., а мужского – 20 рублей.

Каждому животному нужно ежедневно выдать не менее 6 единиц белков, 8 единиц жиров и 12 единиц углеводов. Есть 2 вида корма. Одна единица первого корма содержит 21 единицу белка, 2 единицы жира, 4 единицы углеводов и стоит 3 руб. Для второго корма соответствующие цифры следующие: 3, 2, 2 и 2. Составьте математическую модель и найдите оптимальный рацион питания.

Type mas=array[1..93] of real; var i,w: byte; season: mas; t: real; function temp(ses: mas; d: byte): real; var i: byte; s: real; begin s: =0; for i: =1 to d do  s: =s+ses[i]; temp: =s; end; begin repeat writeln('год високосный? 1-да 0-нет'); read(w); if (w< > 1) and (w< > 0) then w: =2; until w< > 2; writeln('введите зимние  температуры за каждый день: '); for i: =1 to 90+w do  readln(season[i]); t: =temp(season,90+w); writeln('среднее арифметическое зимних температур:   ',t/(90+w): 5: 3); writeln('введите весенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое весенних температур:   ',t/92: 5: 3); writeln('введите летние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,92); writeln('среднее арифметическое летних температур:   ',t/92: 5: 3); writeln('введите осенние температуры за каждый день: '); for i: =1 to 92 do  readln(season[i]); t: =temp(season,91); writeln('среднее арифметическое осенних температур: ',t/91: 5: 3); end.