За 1-ые 30 минут в Internet-клубе нужно платить по 80 копеек

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

Задать свой вопрос
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 коп

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт