За первые 30 минут в Internet-клубе нужно платить по 80 копеек в минуту, а дальше по 60...

Question

За первые 30 минут в Internet-клубе нужно платить по 80 копеек в минуту, а дальше по 60 копеек. Но если клиент работает без перерыва 5 часов, ему снижается дальнейшая оплата до 50 копеек в минуту. Сидоров работал a часов и b минут. Сколько ему нужно заплатить? в паскале

Answer 1

var a,b,min,money: integer;

begin

readln(a,b);

min:=a*60+b;

case min of

1..30   : money:=min*80;

31..5*60: money:=30*80+(min-30)*60;

else money:=30*80+(5*60-30)*60+(min-5*60)*50;

end;

writeln(money,' коп');

end.

Пример:

5 10

19100 коп