Не пойму где ошибка, паскаль формулу не считает, ! в аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салонах класса и одна четверть мест - бизнес-класса. стоимость билета в салоне бизнес-класса х рублей, что в 2 раза выше стоимости . разработайте программу, которая вычислит сумму денег, полученную от продажи билетов на этот рейс, если известно, что остались не распроданными а билетов бизнес-класса и b билетов эконом класса. program n_12; var a, b: integer; s, x: real; begin writeln ('подсчѐт суммы от продажи билетов'); writeln ('количество непроданных билетов бизнес класса a'); readln (a); writeln ('количество непроданных билетов бизнес класса b'); readln (b); writeln ('стоимость билетов бизнес класса x'); readln (x); s : = (40 – а)*x+(120 – b)*x/2; writeln ('билетов продано на ', s, ' руб.') end.

az34358strelok8390    3   25.06.2019 03:10    1