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
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
лучший ответ и ставлю 5 звёзд Информатика 7 класс решить задания 4 и , ограниченное время ">
Автор: АнатольевичМиронова885
Дан целочисленный массив и число к.Вывечти индекс первого элемента большего к
Автор: Чечин-Павлова615
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.