Что получится после выполнения программы? использовать Чертёжник
алг
нач
•прямоугольник
•выбрать чернила (белый)
•сместиться в точку (3,4)
•прямоугольник
•выбрать чернила (синий)
•прямоугольник
•сместиться в точку (5,0)
•прямоугольник
•сместиться в точку (2,8)
•выбрать чернила (фиолетовый)
•прямоугольник
•сместиться в точку (8,8)
•выбрать чернила (красный)
•прямоугольник
кон
алг прямоугольник
нач
•опустить перо
•сместиться на вектор (0,3)
•сместиться на вектор (4,0)
•сместиться на вектор (0,-3)
•сместиться на вектор (-4,0)
•поднять перо
кон
нарисовать это на бумаге!
либо цены за билет бизнес класса.
Uses crt;
var a,b,x,c,d:real;
begin
ClrScr;
writeln('Введите кол-во нераспроданных билетов бизнес класса (а) и кол-во нераспроданных билетов эконом. класса (б) ');
readln(a,b);
// Узнали, сколько осталось нераспроданных билетов разных классов.
c:=160*0.75-b;
// Узнали, сколько билетов продано эконом класса.
d:=160*0.25-a;
// Узнали, сколько билетов продано бизнес класса.
x:=d+c/2;
writeln('Для того, чтобы узнать сколько денег получила авиакомпания за этот рейс нужно число х: ',x,' умножить на цену билета бизнес класса, либо умножить на удвоенную цену одного билета эконом класса');
readln
end.
Или ответ: число которое выведет программа х, например, ответ: 15х
Программа проверена, если что не так пиши