Определить, можно ли перелететь через пропасть

@Juicer · Регистрация: 25.11.2016

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

Добрый вечер! Помогите, пожалуйста, решить задачу:

На пути вашего героя встретилась пропасть шириной s метров. До ближайшего моста идти очень и очень долго, поэтому вы решаете перелететь через нее. Для героя единственный способ летать — выпить зелье левитации. Одна выпитая бутылочка зелья позволяет лететь в течении k секунд со скоростью v м/c. К несчастью, самого зелья у героя с собой нет, зато есть рецепт зелья,все необходимые для его изготовления приборы и какие-то ингредиенты. Из рецепта известно, что для приготовления зелья левитации нужно n ингредиентов, причем i-го ингредиента нужно ai штук. У героя же есть bi этого ингредиента.

По необходимому и имеющемуся количеству каждого из ингредиентов определите, сможет ли герой сварить достаточно зелья, чтобы перелететь через пропасть, или же придется все-таки идти в обход?

Входные данные
В первой строчке идет число s — ширина пропасти. Затем на этой же строчке даны числа k и v – сколько секунд и с какой скоростью позволяет лететь одна выпитая бутылочка зелья. Во второй строчке дано число n ≤ 100. Дальше идут n строчек. В каждой из них записаны два числа: ai > 0 — сколько порций i-го ингредиента необходимо для изготовления одной бутылочки и bi ≥ 0 — сколько порций этого ингредиента есть у героя.

Выходные данные
Если герой сможет перелететь через пропасть, выведите "YES", иначе выведите "NO" (без кавычек).

Примеры:

Входные данные:
1 1 1
2
1 1
2 2
Выходные данные:
YES

Входные данные:
1 1 1
2
1 1
2 1
Выходные данные:
NO

Добавлено через 20 часов 23 минуты
Разобрался. Может, кому-то поможет

Pascal

var
   n,a,b,i,s,k,v: integer;
   z:real;
 
begin
  read(s,k,v);
  z:=s/(k*v);
  readln(n);
  for i := 1 to n do
  readln(a,b);
  if b>=a*z then 
  writeln('YES') 
  else writeln('NO');
  end.

@кот Бегемот · 09.12.2016, 16:12

Фигня.
Идея хорошая, а исполнение никуда не годное.

Pascal

for i := 1 to n do
  readln(a,b);
  if b>=a*z then 
  writeln('YES') 
  else writeln('NO');

Что проверяется в этом условии? Последнее значение b?

@Juicer · 09.12.2016, 16:43 **[ТС]**

Да, точно, ошибка, проверяет последнее введённое b

@Juicer 0 / 0 / 1 Регистрация: 25.11.2016 Сообщений: 60
	09.12.2016, 16:43 [ТС]	3
	Да, точно, ошибка, проверяет последнее введённое b 0