Question

Стоимость туристической путевки определяется в зависимости от времени года. базовая стоимость путевки умножается на сезонный коэффициент, который определяется следующим образом: октябрь, май, январь - коэффициент 1; июнь, июль август, сентябрь - коэффициент 1.2; ноябрь, декабрь, февраль, март, апрель - коэффициент 0.8. составить программу определения стоимости путевки, если известна ее базовая стоимость и месяц, на который приобретается путевка.

Answer 1

Program Polik1907;
uses crt;
Var
  tur:real;
  mes:integer;
begin
  writeln('');
  writeln('*    Мы рады приветствовать вас       *');
  writeln('*         в нашем турагентстве        *');
  writeln('*         P O L I K   1 9 0 7         *');
  writeln('*               ! ! !                 *');
  writeln('');
  writeln();
  writeln('Введите базовую стоимость путёвки: ');
  readln(tur);
  writeln('month Введите номер месяца: ');
  readln(mes);
  case mes of
    1,5,10: writeln('Стоимость вашей путёвки составит ',tur,'  рублей');
    6,7,8,9:  writeln('Стоимость вашей путёвки составит ',tur*1.2,'  рублей');
    2,3,4,11,12:  writeln('Стоимость вашей путёвки составит ',tur*0.8,'  рублей');
    else writeln('Введите правильный номер месяца');
  end;
end.