Тяжелый выборОграничение медли 1 секундаОграничение памяти 64MbВвод стандартный ввод или

Тяжелый выбор
Ограничение медли 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
В этом году 3-ий раз одна известная компания проводит соревнование по программированию искусственного ума для игровых стратегий. В этот раз участникам предложили написать искусственный ум для управления командой хоккеистов. После проведения очередного тура, Вася решил, что для последующего улучшения своей стратегии нужно просмотреть все бои с теми конкурентами, которые сравнимы с ним по проценту побед. Задана таблица результатов боев в прошедшем раунде. В каждой строке записаны ник конкурента Васи и итоговый счет. 1-ое число указывает, сколько шайб забила стратегия Васи, 2-ая сколько шайб забила стратегия конкурента. Необходимо подсчитать процент побед каждого соучастника и вывести итог, отсортировав его в порядке неубывания процентов. Если процент побед оказался схожим, то нужно упорядочить записи по никам лексикографически.

Формат ввода
В первой строке входного файла записано целое число N (1 N 105) количество записей в таблице. В каждой из следующих N строк через пробел записаны ник конкурента, сколько забила Васина команда и сколько забил конкурент. Гарантируется, что каждый ник непустая строчка, длина которой не превосходит 10 символов и состоящая из строчных букв латинского алфавита. Так же знаменито, что никто из соучастников не забивал больше 1000 голов.

Формат вывода
В первой строке выходного файла выведите количество конкурентов. В следующих строчках выведите ник конкурента и процент побед Васиной команды с точностью не ужаснее 6 символов после запятой.

Пример 1
Ввод Вывод
1
tpusct 1 60
1
tpusct 0.0000000000 паскаль

Задать свой вопрос
1 ответ

var f1,f2:text;

d,s,z,n:longword;

a,b,t,m,x:smallint;

begin

assign(f1,'input.txt');

reset(f1);

assign (f2,'output.txt');

rewrite(f2);

readln(f1,d,a,b,s,t);

if agt;b then x:=a-b else x:=b-a;

if d mod s=0 then n:=d div s else n:=d div s+1;

if x mod t=0 then m:=x div t else m:=x div t+1;

z:=n+m;

write(f2,z);

close (f1);

close (f2);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт