Снадстройки "поиск решения" решить фирма производит 2 вида продукции: столы и стулья. для изготовления 1 стула требуется 3 фута древесины, а для стола - 7 футов. на изготовление 1 стула уходит 2 часа рабочего времени, а на 1 стол - 8 часов. фирма должна выполнить план по ассортименту. каждый стул приносит 3 доллара прибыли, а каждый стол - 9 долларов. сколько стульев и столов необходимо изготовить, если фирма располагает 420 футами древесины и 400 часами рабочего времени и хочет получить максимальную прибыль?

Не "теранарный", а тернарный оператор. есть во многих языках программирования, зря не указали, какой вам надо. // pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('день недели (1- пн, 2- вт, 7- вс: ');   writeln(n< 6? 'рабочий день': n=6? 'суббота': 'воскресенье') end. примеры (предполагается без проверки корректность ввода) день недели (1- пн, 2- вт, 7- вс: 4 рабочий день день недели (1- пн, 2- вт, 7- вс: 6 суббота день недели (1- пн, 2- вт, 7- вс: 7 воскресенье

Program   bit3; var   а,в,с,d: real;   begin   readln(а,в,с);           if   (a> =b)  and   (a> =c)  then   d: =a;           if   (b> =a)  and   (b> =c)  then   d: =b;           if   (c> =a)  and   (c> =b)  then   d: =c;           writeln(d) end. program   bit2;   var   а, в, с, d: real;   begin   readln(а, в, с);             if   a> b                     then if   a> c  then   d: =a  else   d: =b                      else if   b> c  then   d: =b  else   d: =c;           writeln(d) end.