Мы рады летним теплым дням – а вы? понежиться под знойным солнышком, поплескаться в освежающей морской воде, почитать книжку, поиграть в пляжный звучит здорово, правда? но что делать, если вам наскучили все эти занятия? от скуки феодосий начал строить песочные куличики. строить куличики он начал от береговой линии, продвигаясь вглубь пляжа. феодосий решил нумеровать куличики в порядке постройки, начиная с нуля. так, нулевой куличик стоял у самой воды, первый – чуть дальше от моря, второй – ещё дальше и так далее. феодосий считает, что куличик получился удачным, если его высота не меньше x. высоту i-го куличика он описывал целым неотрицательным числом hi. мальчик уже слепил n куличиков. и тут оказалось, что он не учёл, что уровень воды в море может измениться даже за короткий промежуток времени. прилив размывал один песочный куличик за другим в том порядке, в котором они были построены. теперь, продолжая строить куличики, феодосий придумал себе следующее занятие: в некоторые моменты времени он выбирает один куличик и считает, сколько удачных куличиков осталось перед ним. это занятие уже показалось ему интересным, и он решил придумать, как можно автоматизировать подсчёты. так как сам феодосий силён в построении куличиков, а не в программировании, поэтому в решении этой он попросил у вас. входные данные в первой строке входного файла даны два числа: n – начальное количество построенных куличиков (1≤n≤106) и x – нижняя граница высоты удачного куличика (0≤x≤109 в следующей строке даны n чисел hi – высота i-го куличика (0≤hi≤109). в третьей строке входного файла дано число m (1≤m≤105) – количество событий, которые происходили с рядом куличиков. в следующих m строках дано описание событий: 1 h (0≤h≤109) – феодосий строит новый куличик высоты h. 2 – вода разрушает самый ближний к морю куличик, который в нумерации феодосия имеет номер 0. после этого феодосий мысленно уменьшает номера всех куличиков на 1. 3 i – феодосий хочет узнать, сколько удачных куличиков осталось между куличиком с номером i и линией моря. гарантируется, что все запросы корректны: если на берегу нет ни одного куличика, то операция второго типа не выполняется, а при запросе третьего типа количество куличиков всегда будет строго больше i. выходные данные на каждый запрос третьего типа в отдельной строке выведите одно число – количество удачных куличиков, которые стоят перед куличиком с данным номером. примеры входные данные 1 2 3 5 1 2 1 1 3 0 3 1 3 2 выходные данные 0 1 2 входные данные 2 2 1 2 7 3 0 3 1 2 3 0 1 3 3 0 3 1 выходные данные 0 0 0 0 1
Ответы
Const
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
Тестовое решение:
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
R=14;
var
i,k:integer;
W:array[1..R] of longint;
begin
Write('Введите число членов последовательности (1-',R,'): ');
Readln(k);
if (k<1) or (k>R) then Writeln('Вы ввели неверное значение')
else begin
Write('Члены последовательности: 1');
w[1]:=1;
for i:=2 to k do
begin
w[i]:=5*w[i-1];
Write(', ',w[i])
end;
Writeln
end
end.
Тестовое решение:
Введите число членов последовательности (1-14): 14
Члены последовательности: 1, 5, 25, 125, 625, 3125, 15625, 78125, 390625, 1953125, 9765625, 48828125, 244140625, 1220703125
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
не проходите мимо НАДО РЕШИТЬ НОМЕР 14, КРОМЕ 4) и 5)
Автор: roman-fetisov2005
Компьютерлік ойынға құрылатын құжаттама дегеніміз не
Автор: smartschoolfili6
Для чого і як використовують буфер обміну office?
Автор: Vyacheslavovich1431
Program sist;
var a,b,f:integer;
c,p,i:string;
begin
readln(a); //вводим число
b:=2; //это у нас будет степень, сам потом переделаешь,чтоб вводить её тоже
while a>0 do //тут задаём условие (пока a>0 выполняем действия:)
begin //начало скобки(должен знать)
if a mod b=0 then c:='0' else c:='1'; //проверяем условие(если остаток от деления а поделить на 2 равен 0 то строка равна символу 1 иначе символ 0)
a:=a div b; //делим а на b без остатка
i:=i+c; //присваиваем строке i результат: строка i+результат строки c
end; //конец скобки
for f:=length(i) downto 1 do //начинаем цикл от большего к меньшему(от количества символов в строке i до 1)
p:=p+i[f]; //(к строке p прибавляем символ строки i) это относится к нашему циклу
i:=p; //тут понятно думаю
writeln(p, '(',b,')'); //выводим результат
end.