О заслуге британских учёных

@ITS · Регистрация: 12.01.2016

Студворк — интернет-сервис помощи студентам

1925. О заслуге британских учёных
Ограничение времени: 1.0 секунды
Ограничение памяти: 64 МБ
Мир в опасности. Инопланетяне n лет назад сбросили на Землю неведомое устройство. Каждый год на его экране появлялся непонятный знак, и оно начинало издавать угрожающие звуки до тех пор, пока кто-нибудь не вводил что-нибудь на его клавиатуре. Так продолжалось до сегодняшнего дня. Но британские учёные только что установили, что это устройство — не что иное, как бомба, способная уничтожить всю солнечную систему в мгновение ока. Знаки, которые это устройство выводит на своём экране — это числа. На вход оно также ожидает число. Инопланетяне придумали хитрую защиту: для того чтобы избежать взрыва, нужно каждый год вводить число на два меньше, чем выведено на экране.
К счастью, инопланетяне сочли, что ежегодная проверка правильности каждого введённого числа требует слишком много вычислительных ресурсов. Поэтому устройство лишь раз в n + 1 год проверяет, что сумма всех введённых с момента последней проверки чисел совпадает с ожидаемой. Также не может не радовать тот факт, что все символы, которые бомба выводила за эти годы, и все, что вводились с клавиатуры, были записаны, и учёные уже закончили с их расшифровкой.
Сегодня неведомое устройство вывело на экран число k. У вас есть шанс спасти мир, определив, какое число нужно ввести в это устройство, чтобы бомба не взорвалась.
Исходные данные
В первой строке даны целые положительные числа n и k (1 ≤ n, k ≤ 100). В i-й из следующих n строк записаны целые чисела bi и gi — число, выведенное устройством, и число, предложенное ему на ввод, в i-м году, соответственно (0 ≤ bi, gi ≤ 100).
Результат
Выведите одно целое неотрицательное число — то самое, которое позволит спасти мир от ужасного взрыва. Если целого неотрицательного числа, способного спасти мир, нет, выведите «Big Bang!».
Примеры
исходные данные результат
6 5
3 1
3 1
5 3
6 5
5 5
7 2
Вывод:3
1 3
4 6
Вывод:Big Bang!

Мой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
n,k,a,b,p,q,s:integer;
begin
read(n,k);
q:=0;
s:=0;
for a:=1 to n do begin
readln(b,p);
s:=s+b;
q:=q+p;
end;
if ((s-2*n)=q) and (k-2>=1) then write(k-2)
else write('Big Bang!');
end.

Но непроходит! Почему!?

@bormant · 06.02.2016, 21:35

Pascal
6
7
8
s:=k;
...
if s<q then WriteLn('Big Bang!') else WriteLn(s-q);

Добавлено через 11 минут

Pascal
1
2
3
4
5
6
7
8
var n, k, b, g: Integer;
begin
  ReadLn(n,k);
  for n:=1 to n do begin
    ReadLn(b,g); k:=k+b-g;
  end;
  if k<0 then WriteLn('Big Bang!') else WriteLn(k);
end.

@ITS · 07.02.2016, 10:18 **[ТС]**

Не проходит

@SpBerkut · 07.02.2016, 10:42

Мой AC с Тимуса.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  i,k,n,a,b,s,r: integer;
begin
  readln(n, k);
  s:=0; r:=0;
  for i:=1 to n do
  begin
    readln(a,b);
    inc(s,a);
    inc(r,b);
  end;
  inc(n);
  i:=s+k-2*n-r;
  if i<0 then
    writeln('Big Bang!')
  else
    writeln(i)
end.

ФедосеевПавел · 07.02.2016, 10:44

Да, там другая формула - я год назад проходил.

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

нужно каждый год вводить число на два меньше, чем выведено на экране.

Это означает, что каждый год должно было бы быть g=b-2. А также, нужно понять, что "сегодня" n+1 год, поэтому во избежании взрыва нужно бы (если повезёт и сумма>=0) ввести
$https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum {b}_{i}+k-\sum {g}_{i}-2*(n+1)$

Добавлено через 1 минуту
Упс - опять я замешкался...

@ITS · 07.02.2016, 11:31 **[ТС]**

SpBerkut
Спасибо!! А я думал что надо сравнивать со значением q а не вычитать, и не учел что n+1..

@bormant · 07.02.2016, 15:04

Проглядел про "на 2 меньше" в условии, тогда:

Pascal
1
2
3
4
5
6
7
8
var n, k, b, g: Integer;
begin
  ReadLn(n,k); Dec(k,2);
  for n:=1 to n do begin
    ReadLn(b,g); Inc(k,b-g-2);
  end;
  if k<0 then WriteLn('Big Bang!') else WriteLn(k);
end.

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

О заслуге британских учёных

Решение

Решение

@ITS 0 / 0 / 0 Регистрация: 12.01.2016 Сообщений: 25
	07.02.2016, 10:18 [ТС]
	Не проходит 0

@ITS 0 / 0 / 0 Регистрация: 12.01.2016 Сообщений: 25
	07.02.2016, 11:31 [ТС]
	SpBerkut Спасибо!! А я думал что надо сравнивать со значением q а не вычитать, и не учел что n+1.. 0