@Anikin

Здравствуйте! Объясните мне, пожалуйста, как надо решить данную задачу?
Вот тз:
В Москве начал работать новый оператор сотовой связи, предоставляющий доступ в интернет посредством технологии 3G. Новый оператор предлагает простые и невысокие тарифы, в частности, один мегабайт интернет-трафика стоит 1 рубль. Кроме того, оператор предлагает покупать оптовые пакеты трафика – есть два предложения: купить пакет трафика на A мегабайт за B рублей и купить пакет трафика на C мегабайт за D рублей. Таня планирует использовать в течение месяца N мегабайт интернет-трафика. Определите минимальную сумму, которую придётся ей заплатить. Таня может приобретать любое количество каждых из двух предлагаемых пакетов, а также оплачивать трафик по тарифу «1 рубль за мегабайт». Таня может приобретать пакеты интернет-трафика и в том случае, если суммарный оплаченный трафик будет более N мегабайт, если это выйдет дешевле. Программа получает на вход пять натуральных чисел N, A, B, C, D, записанных в отдельных строках, не превосходящих 500 000 каждое. Гарантируется, что A > B и C > D. Программа должна вывести одно целое число – минимальную сумму, которую нужно заплатить для приобретения N мегабайт трафика.

0

@rikimaru2013

1) Составить код программы
2) Запустить программу - после не длительных обсчетов в циклах - будет результат
3) Записать результат как ответ Тане

0

@Vechera

Один мегабайт интернет-трафика за 1 рубль это вы называете невысоким тарифом?!

0

@Anikin

Это задача с олимпиады, и не я придумал тз

Добавлено через 1 час 2 минуты
Примерно до такого же плана я догадался сам, не подскажете как именно лучше считать в цикле?

0

@Infinite_TxT

Может быть кому то понадобится и будет полезна.
[PASCAL_ABC]
program inet;
var n,a,b,c,d,a1,b1,c1,d1:integer;
St,o1,o2,o3,k1,k2:real;
const s=1;
begin
st:=0;
readln(n);
readln(a);
readln(b);
readln(c);
readln(d);
if a mod b > c mod d
then
begin
begin
k1:=n div a;
St:=k1*b;
o1:=n-a*k1;
k2:=o1/c;
end;
if d*k2>=b then St:=St+b
else
begin
k2:=Trunc(k2);
St:=St+k2*d;
o2:=o1-c*k2;
end;
if s*o2>d then St:=St+d
else
begin
o3:=o2*s;
St:=St+o3;
end;
end;
if a mod b < c mod d
then
begin
begin
a1:=a;
b1:=b;
a:=c;
b:=d;
d:=b1;
c:=a1;
end;
begin
k1:=n div a;
St:=k1*b;
o1:=n-a*k1;
k2:=o1/c;
end;
if d*k2>=b then St:=St+b
else
begin
k2:=Trunc(k2);
St:=St+k2*d;
o2:=o1-c*k2;
end;
if s*o2>d then St:=St+d
else
begin
o3:=o2*s;
St:=St+o3;
end;
end;
writeln(St);
end.[/PASCAL]

0