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