Help, please!! В одном известном магазине случилась распродажа, однако администрация не учла одну проблему: в магазине всего одна касса! Сразу после начала распродажи возле кассы организовалась
длинная очередь. Никто не любит очереди, поэтому у покупателей постепенно возрастает уровень
агрессии. От вас требуется рассмотреть процесс продвижения очереди.
Могут происходить события трёх типов:
1. В конец очереди встал человек с уровнем агрессии a;
2. Первый человек в очереди начал ругаться с кассиром, в результате чего уровень его агрессии
увеличился на x, а уровень агрессии каждого из остальных людей в очереди (если в очереди
стоит не один человек) увеличился на y;
3. Первый человек в очереди оплатил покупку и ушёл из магазина.
От вас требуется обработать N событий. Будем считать, что изначально очередь пуста. Так как
администрация магазина заботится о своей репутации, им важно знать, насколько агрессивными их
покупатели уходят из магазина. Поэтому для каждого события третьего типа нужно определить
уровень агрессии человека, который ушёл из магазина.
Формат входных данных
В первой строке записано одно число N — количество событий (2 6 N 6 300000).
В каждой из следующих N строк содержится описание очередного события:
• 1 a, если произошло событие первого типа;
• 2 x y, если произошло событие второго типа;
• 3, если произошло событие третьего типа.
Для всех событий верно, что 1 6 a, x, y 6 109
. Гарантируется, что события второго и третьего
типов происходят только в том случае, если в очереди есть хотя бы один человек. Также гарантируется, что после N событий в очереди не останется ни одного человека. Возможны случаи, когда
первый человек в очереди несколько раз подряд ссорится с кассиром.
Формат выходных данных
Для каждого запроса третьего типа выведите одно число — уровень агрессии человека, который
ушёл из магазина. Каждое число следует выводить на отдельной строке.
Пример
стандартный ввод стандартный вывод
8
1 4
1 2
2 6 1
3
2 10 20
1 1
3
3
output
10
13
1
Замечание
Сначала в очередь встали два человека с уровнями агрессии 4 и 2 соответственно. Затем первый
человек поссорился с кассиром, после чего уровни агрессии людей стали равны 10 и 3. После этого
первый человек ушёл из очереди, а второй поссорился с кассиром. Теперь уровень его агрессии
равен 13. Затем в очередь встал человек с уровнем агрессии 1, после чего оба человека ушли из
магазина.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

sanydrr1

24.09.2021 16:47

с заданием по информатике, само задание смотрите на фото. Буду очень благодарен тем кто сделает....

Лина230502

25.10.2020 22:29

Які операції можна виконати над числами? Это вопрос по поводу Turbo Pascal....

NekitFe

11.10.2021 13:07

Help me!Это информатика сделать ответы все от 1 до 13. Если будет правильно дам лучший ответ. Пример: №1:а №2:г последние 2 с решением...

permyakov2001

14.05.2022 13:49

Укажите логическую функцию, которая вернет значение ИСТИНА только тогда, когда истинны будут значения всех ее операндов. 1)=ЕСЛИОШИБКА(A1; Измените значение ) 2)=НЕ(A1) 3)=ИЛИ(A1;B1)...

ivanovayo08

07.01.2021 15:14

Які основні причини зумовлюють необхідність архівації інформації?...

VovanBah

09.08.2022 01:26

написать программу на Паскале ABC...

madam7952

12.02.2023 03:49

7 Задание на коде Паскаль АБС...

dashakostyk

07.03.2020 08:20

(запиши данное число в двоичной, восьмеричной и шестнадцатеричной системе счисления) системы счисления: десятичная: 2 двоичная: восьмеричная: шестнадцатеричная: ответить!...

1234554321111

03.01.2021 10:37

Запиши число 13333 в развёрнутом виде, начиная со старшего разряда....

benjulia

03.01.2021 10:37

Выполните действия(маленькие цифры-системы счисления) 110111²-10110²= 101001²+10110²= 77(восьмеричная)+74(восьмеричная)= 2а(шестнадцатеричная)+а2(шестнадцатеричная)=...

Ответ:

ksenya20042

16.12.2022 09:11

Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341).
program Task;
var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательными
begin
read(N);
for i:=1 to N do
begin
if (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)
end;
while (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.

Пиши, если что-то не работает или не понятно :)

0,0(0 оценок)

Ответ:

yuliana577

01.01.2021 03:39

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

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.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку