Миссия простая: нужно либо накопить кредитов (читайте: единиц вымышленной валюты), либо сокрушить врага в этом регионе. миссия проходная и не интересная (даже никаких юнитов кроме пехоты), так что надо её закрыть побыстрее.
изначально у нас нет ни одного кредита и ни одного отряда пехоты. но есть база и гарантия того, что враг нас не обнаружит, пока мы на него не нападём.
на нашей базе можно хранить не более кредитов. чтобы хранить больше, нужно строить хранилища: каждое стоит (≤) кредитов и в каждом можно будет хранить дополнительно по максимум кредитов. строительство моментально (а вы что, реализма
через каждые минут нам привозят добычу на кредитов. добыча моментально конвертируется в кредиты и мы перераспределяем новые кредитов и кредиты, имеющиеся на базе, по трём направлениям: строительство хранилищ, наём отрядов пехоты, хранение на базе. количество кредитов, отданных на строительство хранилищ, должно быть кратно стоимости постройки одного хранилища. количество кредитов, отданных на наём отрядов пехоты, должно быть кратно стоимости наёма одного отряда пехоты. если мы отдаём на хранение больше кредитов, чем может храниться на базе (хранилища, на строительство которых мы только что отдали кредиты, тоже учитываются), то излишки кредитов исчезают.
если после очередного описанного выше распределения на базе будет храниться хотя бы кредитов, то считается, что мы накопили кредитов, и миссия считается пройденной.
один отряд пехоты стоит (≤) кредитов. сразу после оплаты, которая тоже моментальна, отряд будет ждать приказаний на нашей базе.
проще и быстрее всего избавиться от врага в этом регионе – заставить его капитулировать. для этого нужно к стенам вражеской базы больше отрядов пехоты, чем есть на вражеской базе.
по данным разведки, на вражеской базе отрядов, а добраться до вражеской базы наши отряды пехоты смогут за минут (все отряды, независимо от их количества, могут идти вместе).
за сколько в лучшем случае мы завершим миссию?
формат входных данных
единственная строка содержит 9 целых чисел (1≤≤100; ,≤).
формат выходных данных
выведите одно целое число – искомое количество минут.
пояснение к примеру
чтобы максимально быстро накопить 2700 кредитов, мы можем построить 2 хранилища через 3 минуты после начала (в этот момент у нас появятся первые кредиты) и далее просто складировать все кредиты на базе. тогда через 9 минут после начала на базе накопится необходимая сумма.
чтобы заставить врага сдаться, мы можем через 3 минуты после начала нанять 10 отрядов пехоты и сразу же пойти на вражескую базу. тогда через 6 минут после начала враги сдадутся.
несмотря на то, что пример не удовлетворяет ограничениям на входные данные в данной , для получения за текущую необходимо, чтобы ваша программа выдавала правильный ответ на пример.
sample input:
2700 1000 150 1000 3 1000 100 7 3
sample output:
6
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
begin
p:=p+s[i];
i:=i+2;
end;
writeln('б)');
writeln(p);
end.
Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2
program raf105;
var a:array[1..8] of real;
i,n:integer;
x:real;
begin
write('Введите номер билета: ');
readln(x);
n:=8;
for i:=1 to 8 do
begin
n -= 1;
if i=1 then
a[i]:= trunc(x / (10**7))
else if i=8 then
a[i]:= round(frac(x / 10)*10)
else
a[i]:= round(frac((trunc(x / (10**n))) / 10)*10);
end;
if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]
then writeln('Номер билета является счастливым')
else writeln('Номер билета не является счастливым');
end.
2 вариант (с использованием типа string)program raf105;
var a:array[1..8] of integer;
i:integer;
x:string;
begin
write('Введите номер билета: ');
readln(x);
for i:=1 to 8 do
a[i]:= ord(x[i])-48;
if a[1]+a[2]+a[3]+a[4]=a[5]+a[6]+a[7]+a[8]
then writeln('Номер билета является счастливым')
else writeln('Номер билета не является счастливым');
end.
Язык PascalABC