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
begin
writeln("введите количество метров пробегания жирафа");
read(y1);
writeln("введите, за сколько секунд он должен пробежать");
read(x1);
writeln("введите количество метров пробегания зайца");
read(y2);
writeln("введите, за сколько секунд он должен пробежать");
read(x2);
v1:=y1/x1;
v2:=y2/x2;
if v1>v2 then
begin
writeln("жираф чемпион");
end
else if v1<v2 then
begin
writeln("заяц чемпион");
end
else
begin
writeln("победила дружба);
end;
end;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer;
i, j, k,n,r,t: integer;
begin
Writeln('Введите размер матрицы n');Read(n);
for i := 1 to n do begin
for j := 1 to n do begin
Read(k);x[i, j] := k; end;end;
Writeln('Исходный массив');
for i := 1 to n do begin
for j := 1 to n do begin
Write(x[i, j]:4);
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;
end;
Writeln; end;
Writeln;Writeln('Одномерный массив');
for j := 1 to t do
Write(z[j]:4);
end.