Pascal

Программу с помощью Case нужно сделать, условия.

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

1: write('Выручка кинотеатра: ', (n*25)+(m*70),'руб'); 2: write('Выручка кинотеатра: ', (n*50)+(m*100),'руб'); 3: write('Выручка кинотеатра: ', (n*75)+(m*100),'руб');

забыл (,) поставить

var  k,m,n: byte;begin  write('Введите время суток: ');  readln(k);  write('Детей: ');  readln(n);  write('Взрослых: ');  readln(m);  case k of    1: write('Выручка кинотеатра: ', (n*25)+(m*70)'руб');    2: write('Выручка кинотеатра: ', (n*50)+(m*100)'руб');    3: write('Выручка кинотеатра: ', (n*75)+(m*100)'руб');  end;end.

var t,n,m,s:integer;beginwrite('t (1,2,3) = ');readln(t);writeln('n, m:');readln(n,m);case t of 1: begin s:=25*n+70*m; writeln('Утренняя выручка = ',s); end; 2: begin s:=50*n+100*m; writeln('Дневная выручка = ',s); end; 3: begin s:=70*n+100*m; writeln('Вечерняя выручка = ',s); end; else writeln('Ошибка ввода');end;end.Пример:t (1,2,3) = 1n, m:10 5Утренняя выручка = 600