Pascal. Программу с помощью Case нужно сделать, условия: Пусть время суток обозначено номерами: 1 – утро, 2 – день, 3 – вечер. Билет в кино на утренний сеанс стоит (детский – 25 р., взрослый – 70 р.), на дневной сеанс (детский – 50 р., взрослый – 100 р.), а на вечерний (детский – 70 р., взрослый – 100 р.). Какова выручка кинотеатра в одно из время суток, если в кино пришло n детей и m взрослых.

Можно сделать так: сначала вводим номер времени суток, затем количество детей \( n \) и взрослых \( m \). Через case выбираем нужные цены и считаем выручку.

program Kino;
var
t, n, m, s: integer;
begin
writeln('Введите время суток: 1 - утро, 2 - день, 3 - вечер');
readln(t);
writeln('Введите количество детей и взрослых');
readln(n, m);

case t of
1: s := n * 25 + m * 70;
2: s := n * 50 + m * 100;
3: s := n * 70 + m * 100;
else
begin
writeln('Неверный номер времени суток');
exit;
end;
end;

writeln('Выручка кинотеатра = ', s, ' р.');
end.

0 0 Пожаловаться