Сумма денег, получаемой авиакомпанией от продажи билетов на рейс - PascalABC.NET

Формулировка задачи:

Составьте программу для определения суммы денег, получаемой авиакомпанией от продажи билетов на рейс из Лондона в Нью-Йорк, если в самолёте три четверти пассажиров имеют билеты первого класса, стоимостью и X рублей за каждый. Остальные пассажиры имеют билеты второго класса, которые дешевле билетов первого класса на 20%. Количество пассажиров и стоимость билетов первого класса вводятся с клавиатуры.

Решение задачи: «Сумма денег, получаемой авиакомпанией от продажи билетов на рейс»

Листинг программы

var n:integer;
     x,s:real;
...............................
s:=0.75*n*x+0.25*n*0.8*x;

Объяснение кода листинга программы

В начале кода объявляются три переменные: — n типа integer (целое число), — x типа real (число с плавающей точкой), — s типа real (число с плавающей точкой).
Затем происходит подсчёт и присваивание значению переменной s. s := 0.75 n x + 0.25 n 0.8 * x; Значение переменной s получается путём умножения: — 0.75 (коэффициент) на произведение n (количество денег за билет) и x (цена билета). — 0.25 (коэффициент) на произведение n (количество денег за билет) и 0.8 (коэффициент для цены билета). Полученное значение присваивается переменной s.