A. Гонщик Ариф ограничение по времени на тест2.0 с
ограничение по памяти на тест256 мегабайт
вводстандартный ввод
выводстандартный вывод
Ариф участвует в гонке через всю дорогу. Он начал двигаться со скоростью 1 м/сек. Однако по мере уставания, он замедляется по следующим правилам. После первого замедления его скорость становится 1/2 м/сек, после второго замедления – 1/3 м/сек и т.д.
Вам говорится когда и где Ариф замедляется в терминах серии таких событий:
T 17 - Означает, что Ариф замедлился в конкретное время после 17 секунд гонки.
D 10 - Означает, что Ариф замедлился на дистанции 10 метров от старта.
По заданному списку из N таких событий определите количество времени в секундах, которое потребуется Арифу, чтобы преодолеть расстояние в 1 километр. Округлите свой ответ до ближайшего целого (0.5 округляется к 1).
Входные данные
В первой строке вам задано число N(1<=N<=10000). Следующие N строк имеют вид "T x" или "D x", указывая на событие по времени или событие по расстоянию. В обоих случаях, х – целое число. Гарантируется, что все события произойдут, прежде чем она пройдёт 1 км. Возможно такое, что несколько событий произойдут одновременно, вынуждая Арифа замедляться сразу несколько раз. События могут идти не по порядку.
Выходные данные
Выведите ответ на задачу.
Пример:
входные данные
2
T 30
D 10
выходные данные
2970
const
handsfree = false;
nmax = 10;
random_min = -50;
random_max = 50;
var
a: array[0..nmax] of real;
i, n: integer;
sum, x: real;
begin
{ввод массива}
n := nmax;
if handsfree then begin
for i := 0 to n do
begin
a[i] := random(random_max - random_min) + random_min;
write(a[i], ' ');
end
end
else begin
for i := 0 to n do
readln(a[i]);
end;
writeln();
{подсчет суммы}
write('x = ');
readln(x);
sum := a[n];
for i := n - 1 downto 0 do
sum := sum * x + a[i];
writeln('S = ', sqrt(sum));
end.