Шифр по інформатиці
Гоа_аплSppиUна.Роц_Е_юTRпви!

Объяснение:

Подивись на скріни. Спочатку тобі потрібно нажати на Вставити функцию(У мене російською, але, я гадаю, ти зрозумієш). Потім, якщо в тебе українською, пишеш ЧАС(Якщо в тебе Excel також російською, то пиши ВРЕМЯ). Натискаєш, та пишеш час. Потім, у колонці С, тисни = і обирай кількість людей(Колонка В) помножити на стандартну ціну за білет помножити на множник для відрахування 10%. У час з 10 ранку до 10 вечора на множник можна не множити - тільки людей на ціну білета.

У файлі я добавив, знизу справа, сумму за всі білети. Тобі залишилося заповнити В і С, і воно само порахує сумму всіх грошей за день.

Procedure Dec2Oct(n:longint);
{ Перевод натурального десятичного n в восьмеричную систему счисления
  и вывод результата }
const
  alpha = '01234567';
var
  s: string;
  i:integer;
begin
  s := '';
  while n > 0 do begin
    s := alpha[(n mod 8) + 1] + s;
    n := n div 8
  end;
  for i:=Length(s) to 9 do s:='0'+s;
  Write(s)
end;

{ Использование }
var
  x:longint;
begin
  Write('Введите десятичное число: '); Read(x);
  Write('В восьмеричной системе счисления: ');
  Dec2Oct(x);
  Writeln
end.

Тестовое решение:
Введите десятичное число: 1234567
В восьмеричной системе счисления: 0004553207