Question

Решите ограничения: время - 200мс, память - 256ms в магазине два вида печенья. первый вид печенья упакован в коробки по а штук и стоит в центов за коробку, второй вид печенья упакован в коробки по с штук и стоит d центов за коробку. аня собирается угостить печеньем n гостей и хочет приобрести столько коробок печенья одного вида, чтобы каждому гостю досталось по одному печенью. например, для 22 гостей можно купить либо 3 коробки за 11 центов по 10 печений, либо 2 коробки за 15 центов по 12 печений. в первом случае аня потратит 33 цента, во втором случае - 30 центов. напишите программу, определяющую, какой вид печенья выгоднее купить. первая строка ввода содержит пять целых чисел a, b, c, d и n разделенных пробелами - информация о количестве печенья в коробке и стоимости для каждого вида печенья и количество гостей. в первой строке вывести сообщение «first», если выгоднее купить печенье первого вида, или сообщение «second», если выгоднее купить печенье первого вида, или сообщение «any», если стоимость приобретения n или более штук печенья для обоих видов одинакова. во второй строке вывести одно целое число - стоимость покупки.

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018Внимание! Если программа не работает, обновите версию!

begin

 var a, b, c, d, n: integer;

 Readln(a, b, c, d, n);

 var (ka, kc) := (Ceil(n/a), Ceil(n/c));

 var (sb, sd) := (b * ka, d * kc);

 if sb < sd then Writeln('FIRST', NewLine, sb)

 else

   if sd < sb then Writeln('SECOND', NewLine, sd)

   else Writeln('ANY', NewLine, sb)

end.

10 11 12 15 22SECOND30

Answer 2

var A,B,C,D,N,M,K,S: integer;

begin

 readln(A,B,C,D,N);

 M:=N div A;

 if M*A<N then M:=M+1;

 K:=N div C;

 if K*C<N then K:=K+1;

 S:=M*B;  

 if M*B<K*D then writeln('FIRST')

 else

    if M*B>K*D then

    begin

      S:=K*D;

      writeln('SECOND');

    end

    else writeln('ANY');

 writeln(S);    

end.