Решите пожалуйста!!!!Ограничения: время - 200мс, память - 256MSВ магазине продаются два
Решите пожалуйста!!!!
Ограничения: время - 200мс, память - 256MS
В магазине продаются два вида печенья. 1-ый вид печенья упакован в
коробки по А штук и стоит В центов за коробку, второй вид печенья упакован в
коробки по С штук и стоит D центов за коробку. Аня собирается угостить печеньем N
гостей и желает приобрести столько коробок печенья 1-го вида, чтоб каждому
гостю досталось по одному печенкой. К примеру, для 22 гостей можно купить или 3
коробки за 11 центов по 10 печений, или 2 коробки за 15 центов по 12 печений. В
первом случае Аня истратит 33 цента, во втором случае - 30 центов.
Напишите программу, определяющую, какой вид печенья прибыльнее покупать.
1-ая строка ввода содержит 5 целых чисел A, B, C, D и N разбитых
пробелами - информация о количестве печенья в коробке и цены для каждого
вида печенья и количество гостей.
В первой строке вывести сообщение FIRST, если выгоднее купить печенье
первого вида, либо известье SECOND, если прибыльнее купить печенье первого
вида, или известье ANY, если цена приобретения N либо более штук
печенья для обоих видов схожа. Во 2-ой строке вывести одно целое число -
цена покупки.
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 lt; sd then Writeln('FIRST', NewLine, sb)
else
if sd lt; sb then Writeln('SECOND', NewLine, sd)
else Writeln('ANY', NewLine, sb)
end.
10 11 12 15 22
SECOND
30
var A,B,C,D,N,M,K,S: integer;
begin
readln(A,B,C,D,N);
M:=N div A;
if M*Alt;N then M:=M+1;
K:=N div C;
if K*Clt;N then K:=K+1;
S:=M*B;
if M*Blt;K*D then writeln('FIRST')
else
if M*Bgt;K*D then
begin
S:=K*D;
writeln('SECOND');
end
else writeln('ANY');
writeln(S);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.