Тема: Помощь в програмировании

Кто может помочь мне с задачей? Мне надо решить задачу на паскале(!).
Вот ссылка на задачу http://acmu.ru/asp/champ/index.asp?m...s&id_stage=337. Самая последняя.

Спойлер Задача:

(Время: 1 сек. Память: 16 Мб)

Летом Вася очень любил смотреть в окно. Напротив его дома расположился офис некоторой строительной фирмы. В течение всего месяца Вася наблюдал за его сотрудниками. Про каждый из 31 дня месяца он знает, сколько сотрудников пришло на работу. Ему также известно, что каждый из сотрудников берет ровно по 4 выходных в месяц.

Теперь он ломает голову над загадкой – сколько всего сотрудников работает в этом офисе. Напишите программу, которая ответит Васе на этот вопрос.
Входные данные

В единственной строке входного файла INPUT.TXT записано 31 целое неотрицательное число. Эти числа описывают количество сотрудников, пришедших в офис в соответствующие дни месяца. Гарантируется, что входные данные корректны.
Выходные данные

В единственную строку выходного файла OUTPUT.TXT нужно вывести единственное число – общее количество сотрудников офиса. Гарантируется, что ответ не превышает 100.

Кто может помочь мне с задачей? Мне надо решить задачу на паскале(!).
Вот ссылка на задачу http://acmu.ru/asp/champ/index.asp?m...s&id_stage=337. Самая последняя.

Посмотрел. Похоже на олимпиаду по информатике. Решается через трёхмерный массив. Так с ходу и не вспомню решения подобных программ.

Хотя фактически решение(которое там дадут) будет неверным, а приближённым к верному))

Да, это олимпиада.

Никто не знает? Блин, плохо.

Всё. Задачу решил.

Сообщение от Andrew

Всё. Задачу решил.

поделись решением. Интересно посмотреть на твой метод.

Я формулы не нашёл. Зацепился за то что в условии сказано

Гарантируется, что ответ не превышает 100.

var
i, sum: longint;x: array[0..100] of longint;

begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
for i := 1 to 31 do begin read(x[i]);sum := sum + x[i]; end;
for i := 1 to 100 do
if (i * 31) - (i * 4) = sum then begin write(i);break; end;
end.

И она пошла на 100 балов.

Оригинально. Смело. Я бы даже сказал - нагло. Молодец.
Когда я ездил на олимпиады по информатике, то аналогичные задачи решали через трёхмерный массив и на выполнение давалось 3 сек.

Вот она разница подготовки преподавателей различных вузов. И школьников, соответственно.

Я школьник (7 класс).

Вот условие:

Задача G. Спирт
(Время: 1 сек. Память: 16 Мб)

Каждому школьнику из курса органической химии известна формула молекулы этилового спирта – C2H5(OH). Откуда видно, что молекула спирта состоит из двух атомов углерода (C), шести атомов водорода (H) и одного атома кислорода (O).

По заданному количеству атомов каждого из описанных выше элементов требуется определить максимально возможное количество молекул спирта, которые могут образоваться в процессе их соединения.
Входные данные

Первая строка входного файла INPUT.TXT содержит 3 натуральных числа: C, Н и O – количество атомов углерода, водорода и кислорода соответственно. Все числа разделены пробелом и не превосходят 1018.
Выходные данные

В выходной файл OUTPUT.TXT выведите максимально возможное число молекул спирта, которые могут получиться из атомов, представленных во входных данных.

Не могу решить. Вот моё решение но оно не правильное.

var
a: array [0..3] of longint;
i, min: longint;

begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
readln(a[1], a[2], a[3]);
a[1] := a[1] div 2;
a[2] := a[2] div 6;
a[3] := a[3] div 1;
min := a[1];
for i := 2 to 3 do
if a[i] < min then min := a[i];
writeln(min);
end.

Уже решил. Забыл, что нельзя делать счётчик типа in64.