Решите пж!!! даю 45 баллов (программа паскаль)

Question

Решите пж!!!
даю 45 баллов
(программа паскаль)

---

Comments

Сам распишешь действия? Мне лень еще их и расписывать

---

ок

---

мне нужна только программа

Answer 1

Var
a,b,x,k,s:integer;
begin
 write('Csena biznes bileta: '); readln(x);
 write('Write a: ');readln(a);
 write('Write b: ');readln(b);
 s:=(120-b)*x/2;
 s:=s+(40-a)*x;
 write(s);
 readln
end.

Answer 2

В автобусе 160 пассажиров, значит 120 мест в салоне экономического класса, а 40 мест в салоне бизнес-класса,
120 - b -- распроданные билеты в салоне эконом-класса
40 - a -- распроданные билеты в салоне бизнес-класса
(40 - а) * х = выручка от продажи билетов бизнес-класса
(120 - b) * x/2 = выручка от продажи билетов эконом-класса

Program bus;
var x, a, b:integer;
    sum:real;
begin
  readln(x, a, b);
  sum:=(40 - a) * x;
  sum:= sum + (120 - b) * x / 2;
  write(sum);
end.

Comments

Еееей, я хотел быьб первым(