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

0 голосов
160 просмотров

Трудный выбор Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input.txt Вывод стандартный вывод или output.txt В этом году третий раз одна известная компания проводит соревнование по программированию искусственного интеллекта для игровых стратегий. В этот раз участникам предложили написать искусственный интеллект для управления командой хоккеистов. После проведения очередного тура, Вася решил, что для дальнейшего улучшения своей стратегии необходимо просмотреть все бои с теми соперниками, которые сопоставимы с ним по проценту побед. Задана таблица результатов боев в прошедшем раунде. В каждой строке записаны ник соперника Васи и итоговый счет. Первое число показывает, сколько шайб забила стратегия Васи, вторая — сколько шайб забила стратегия соперника. Необходимо подсчитать процент побед каждого участника и вывести результат, отсортировав его в порядке неубывания процентов. Если процент побед оказался одинаковым, то нужно упорядочить записи по никам лексикографически. Формат ввода В первой строке входного файла записано целое число N (1 ≤ N ≤ 105) — количество записей в таблице. В каждой из последующих N строк через пробел записаны ник соперника, сколько забила Васина команда и сколько забил соперник. Гарантируется, что каждый ник — непустая строка, длина которой не превосходит 10 символов и состоящая из строчных букв латинского алфавита. Так же известно, что никто из участников не забивал больше 1000 голов. Формат вывода В первой строке выходного файла выведите количество соперников. В последующих строках выведите ник соперника и процент побед Васиной команды с точностью не хуже шести знаков после запятой. Пример 1 Ввод Вывод 1 tpusct 1 60 1 tpusct 0.0000000000 паскаль


Информатика (88 баллов) | 160 просмотров
Дан 1 ответ
0 голосов

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 a>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.

(212 баллов)