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 коп

Answer 2

Давайте напишем программу на Pascal, которая решит эту задачу:

pascalCopy code
program InternetClub;

var
  a, b, totalTime, payment: integer;

begin
  { Ввод данных }
  writeln('Введите количество часов (a): ');
  readln(a);
  writeln('Введите количество минут (b): ');
  readln(b);

  { Вычисление общего времени в минутах }
  totalTime := (a * 60) + b;

  { Вычисление стоимости }
  if totalTime <= 30 then
    payment := totalTime * 80
  else if totalTime <= 330 then
    payment := (30 * 80) + ((totalTime - 30) * 60)
  else
    payment := (30 * 80) + (300 * 60) + ((totalTime - 330) * 50);

  writeln('Сумма к оплате: ', payment, ' копеек');
end.

Программа позволяет пользователю ввести количество часов (a) и минут (b), которые он работал в интернет-клубе. Затем она вычисляет общее время в минутах (totalTime) и определяет стоимость (payment) в зависимости от этого времени.

Например, если Сидоров работал 2 часа и 45 минут (a = 2, b = 45), программа выведет "Сумма к оплате: 510 копеек".

Обратите внимание, что в паскале оператор ввода использует readln, а вывод - writeln.