решить олимпиадду по информатике Жасмин и Аладдин собрались полететь на ковре-самолете к Султану – отцу Жасмин в Аграбу, в торговой лавке они купили для него восточные сладости. Аладдин купил N кусочков пахлавы, приготовленной по старинному рецепту, каждый кусочек весит ровно A грамм, а Жасмин купила коробочку рахат-лукума, в которой было ровно M кусочков, каждый из которых весит B грамм.
Но когда Жасмин и Аладдин покупали сладости, они совсем забыли, что летят на ковре-самолете, которой имеет ограничения по весу багажа каждого пассажира ковра-самолета, он не должен превышать C килограмм. Жасмин и Аладдин решили, что сладости, которые не получится взять с собой в перелет, им придется съесть.
Вам нужно определить сколько кусочков пахлавы придется съесть Аладдину и сколько кусочков рахат-лукума придется съесть Жасмин, чтобы их перелет состоялся. Напомним, что в одном килограмме 1000 грамм.
Формат входных данных
На вход программы в первой строке подается два натуральных числа – N и M (1 ≤ N, M ≤ 10000) количество кусочков сладостей, которое купили Жасмин и Аладдин соответственно.
Во второй строке содержится 3 числа: A – вес кусочков пахлавы Аладдина в граммах (10 ≤ A ≤ 300), B – вес кусочков рахат-лукума Жасмин в граммах (10 ≤ B ≤ 300), C – предельный вес багажа в килограммах (1 ≤ C ≤ 20).
Формат выходных данных
Выведите два целых числа разделенных пробелом: количество кусочков пахлавы, которые нужно съесть Аладдину и количество кусочков рахат-лукума, которые нужно съесть Жасмин, чтобы они смогли взлететь на ковре-самолете.
a=массив(10..50);
max:=a[1]'
min:=a[1];
n_min:=0;
n_max:=0;
k:=0;
i:=10;
пока i<=50 делай
нц
если a[i]>max то
нц
max:=a[i];
n_max:=i;
кц
если a[i]<min то
нц
min:=a[i];
n_min:=i;
кц
если (i mod 2)==0 то
sum:=sum+a[i];
k:=k+1;
кц
srednee_znachenie:=sum/k;
//
var
a:array(10..50) of integer;
max,min,n_min,n_max,k,i,sum:integer;
sr:float;
begin
max:=a[1];
min:=a[1];
for i:=10 to 50 do
begin
if a[i]>max then
begin
max:=a[i];
n_max:=i;
end;
if a[i]<min then
begin
min:=a[i]
n_min:=i;
end;
if ((i mod 2)=0) then
begin
k:=k+1;
sum:=a[i]+sum;
end;
end;
end;
sr:=sum/k;
end.
function BinToOct(s:string):string;
// переводит двоичную триаду в восьмеричную цифру
begin
case s of
'000':Result:='0';
'001':Result:='1';
'010':Result:='2';
'011':Result:='3';
'100':Result:='4';
'101':Result:='5';
'110':Result:='6';
'111':Result:='7';
end
end;
begin
var s2:=ReadlnString('Введите целое двочное число');
var k:=s2.Length mod 3;
if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины
var s8:='';
for var i:=1 to s2.Length div 3 do
s8:=s8+BinToOct(Copy(s2,3*i-2,3));
Writeln(s8);
end.
Пример
Введите целое двочное число 10101100001
2541