Студент Шурик в поисках дополнительного дохода устроился на работу — разгружать почтовые вагоны. В напарники ему дали Федю — опытного матёрого грузчика. И если щуплый Шурик с трудом поднимает бандероли весом a килограммов, то могучий Федя перемещать посылки весом b килограммов. Федя и Шурик заходят в вагон, выбирают по одной коробке, которые могут унести по отдельности, и переносят их на перрон. Если вес коробки превышает b, то они её переносят вдвоем. Сколько раз Федя и Шурик войдут и выйдут из вагона (ходят они только вместе и хотят закончить работу как можно раньше)? Входные данные
Программа получает на вход три натуральных числа: a, b (1 ≤ a < b ≤ 100) и n (1 ≤ n ≤ 105) — грузоподъемности Шурика и Феди и количество коробок в вагоне, записанных в отдельных строках. В следующих n строках записано по одному натуральному числу xi (1 ≤ xi ≤ a + b) — вес очередной коробки.

Выходные данные
Выведите одно натуральное число — ответ на вопрос задачи.

Система оценки
Решения, правильно работающее в случае, когда 1 ≤ xi ≤ a, получат не менее

Решения, правильно работающее в случае, когда 1 ≤ xi ≤ b, получат не менее

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

↓

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

Sewrc

28.03.2022 12:54

В режиме сортировщика слайдов нет возможности : а) изменять содержание слайда б) переводидь слайд в скрытый режим в) менять порядок слайдов г) удалять слайд...

artenyancz

14.01.2020 05:16

Основы логики3.Укажите максимальное Х, для которого истинно выражение (X 2))4.Укажите максимальное Х, для которого истинно выражение (X 3))5.Укажите максимальное Х, для которого...

alsutil

04.09.2021 22:27

Если в ситуации,представленной на рисунке, отпустить левую кнопку мыши,по а) Слайд3 и Слайд 4 поменяет местами б) добавится копия слайд3 в) добавится пустой слайд без имени г)...

Kryuchochek02

02.05.2021 22:23

второй день не могу написать алгоритм, вроде все правильно, но выдает ошибку. Написать Алгоритм вычисления площади трапеции в программе Паскаль, если а=5, b=5, h=6, S=30...

Мадинакадырова06

20.06.2021 19:22

Дан массив в(n,n).найти количество элементов меньших 13....

gryzzly12

20.06.2021 19:22

18. в массиве из 10 целых чисел заменить все элементы, меньшие среднего арифметического, на минимальный элемент, а все большие – на максимальный. составить программу в delphi7...

d180902

20.05.2022 06:04

Дан фрагмент блок-схемы алгоритма. Найдите значения переменных a и c после его выполнения, заполнив трассировочную таблицу....

BackspaceAlt

04.10.2022 02:55

Сколько нужно добавить к 126 карандашам, чтобы разложить их в коробки по 12 штук?...

mondy358

04.10.2022 02:55

Решите графически систему уравнений: y=-1/3x+2 x+3y=3...

gdaniiiurik123

04.10.2022 02:55

Это еще 538 секунд в минутах и секундах...

Ответ:

Mishgan21

22.02.2022 17:12

Const n=4;
var
a:array[1..n,1..n] of integer;
i,j,s:integer;
procedure sum(k:integer; var s:integer);
var j:integer;
begin
s:=0;
for j:=1 to n do s:=s+a[k,j];
end;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
write(i,'-я строка: ');
sum(i,s);
writeln('s = ',s);
end;
end.

Пример:
Исходный массив:
60 78 10 51
65 90 65 24
35 97 6 91
10 95 35 15
1-я строка: s = 199
2-я строка: s = 244
3-я строка: s = 229
4-я строка: s = 155

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

Ответ:

alsuaxmetzan

22.11.2021 20:30

var

a: integer;

begin

{1}

readln(a);

if a > 0 then a := a + 1;

writeln(a);

{2}

readln(a);

if a < 0 then a := a * 2;

writeln(a);

{3}

readln(a);

if a <> 0 then a := a - 4;

writeln(a);

{4}

readln(a);

if a > 0 then a := a + 1

else a := a - 1;

writeln(a);

{5}

readln(a);

if a = 0 then a := a + 3

else a := 0;

writeln(a);

end.

{6}

var

x, y: real;

begin

readln(x, y);

if x > y then x := x * y

else x := x + y;

writeln(x);

end.

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

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

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