Обычно предполагается, что нам известны какие-либо начальные данные. Тогда для простоты, буду считать что нам известно основание и высота к этому основанию. В таком случае
S = основание * высоту / 2
Что нужно сделать?
1) Запросить у пользователя ввод длины основания
2) Запросить у пользователя ввод длины высоты
3) Вычислить площадь
4) Вывести площадь на экран
Определимся с данными. У нас будет переменная S, основания и высоты. Все будут real, ведь пользователь может ввести и не целое число.
program ploshad;
var S, osnovanie, visota:real;
begin
writeln('Вычисление площадь треугольника по основанию и высоте');
writeln('Введите длину основания ');
read(osnovanie);
writeln('Введите длину высоты ');
read(visota);
S:=osnovanie*visota/2;
writeln('Площадь треугольника = ',S);
end.
Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Объяснение:
Пусть цех производит 4 вида продукции:
Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)
Шанежки (максимально возможно произвести 1500 шт. в день)
Булочки (максимально возможно произвести 1200 шт. в день)
Пирожные (максимально возможно произвести 700 шт. в день).
Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.
Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.
Извините что добавила ещё продукции.
begin
max:=-100000;
readln(a);
if max<a then max:=a;
readln(b);
if max<b then max:=b;
readln(c);
if max<c then max:=c;
readln(d);
if max<d then max:=d;
writeln(max);
end.