Расчитайте стоимость проезда всей семьи в авто если извесна стоимость билета в...

Question

Расчитайте стоимость проезда всей семьи в авто если извесна стоимость билета в междугороднем автобусе.Стоимость билета в экспрессе на 50% дороже чем в междугороднем автобусе а в маршрутке на 60% дороже чем на экспрессе Требуется приобрести 2 полных билета и два детских со скидкой 50%

Answer 1

Var
  bus, express, taxi: real;

begin
  Write('Введите стоимость автобусного билета ->');
  Readln(bus);
  bus := 3 * bus; { стоимость на семью }
  express := 1.5 * bus;
  taxi := 1.6 * express;
  Writeln('Автобус- ', bus:0:2, ', экспресс- ', express:0:2, ', такси- ', taxi:0:2)
end.

Тестовое решение:

Введите стоимость автобусного билета ->642.50
Автобус- 1927.50, экспресс- 2891.25, такси- 4626.00