Стоимость билета в театр зависит от выбора ряда: 1-3 ряды: 600 рублей, 4-7 ряды: 700 рублей, 8-14 ряды: 500 рублей. Пользователь вводит номер ряда, на котором бы он предпочел сидеть, и необходимое количество билетов. Программа должна вывести стоимость заказа покупателя. Например, ряд 4, билетов 2. Ответ: 1400 рублей.
Var
a: integer;
b: integer;
c: integer;
begin
writeln(Введите номер ряда);
readln(a);
writeln(Введите число билетов);
readln(b);
if a<=3 then c := b * 600;
if (a>=4) and (a<=7) then c := b * 700;
if (a>=8) and (a<=14) then c := b * 500;
writeln(Ваш счет за ,a, ряд равен , c);
end.
Ну вот так вроде)
У меня работает)
Оцени ответ
