В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия

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

Показать ответ
Ответ:
АРТЕМІДА555
АРТЕМІДА555
09.10.2020 04:19

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота