Более удобный, компактный и требующий меньше памяти код, чем у предыдущего ответа.
Пояснение:
1) вводятся два числа и забиваются в значения a и b соответственно.
2)при команды else производится отбор. Если а больше b, то идет запись, если нет, то идет другое else, где если a меньше b, то идет запись их. В конечном случае, если не выполняется ни то, ни то, то просто выводится, что они равны, т.к больше нет никаких вариантов.
Код:
Program school6;
var a,b:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
write ('Первое число больше второго на ', a-b)
Else
If a<b then
write ('Второе число больше первого на ', b-a)
Else Write('числа равны');
end.
Шанежки 751
Пирожные 341
Прибыль эквивалентна стоимости 2898 пирожков
Объяснение:
Пусть цех производит 4 вида продукции:
Пирожки (максимально возможно произвести 2000 шт. в день, если ничего больше не производить)
Шанежки (максимально возможно произвести 1500 шт. в день)
Булочки (максимально возможно произвести 1200 шт. в день)
Пирожные (максимально возможно произвести 700 шт. в день).
Соотношение стоимости изделий таково: пирожок/булочка - 2/1 пирожок/шанежка - 1/2 пирожок/пирожное - 1/4.
Емкость склада равна 1100 изделий. Составить оптимальный план выпуска продукции для достижения максимальной выручки.
Извините что добавила ещё продукции.
Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a<b then
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.