Мальчик Вася в общем-то не жалуется на свою жизнь,но для полного счастья ему не хватает N конфет.Конфеты в магазине продаются или поштучно или в коробках.Одна конфета стоит P копеек,а коробка содержащая M конфет - Q копеек.Опре...
Мальчик Вася в общем-то не жалуется на свою жизнь,но для полного счастья ему не хватает N конфет.Конфеты в магазине продаются или поштучно или в коробках.Одна конфета стоит P копеек,а коробка содержащая M конфет - Q копеек.Определить минимальную сумму,которую нужно потратить Васе,чтобы стать полностью счастливым.
Ответ(ы) на вопрос:
Гость
//Pascal ABC.NET v3.1 сборка 1172
Var
n,p,m,q:integer;
begin
read(n,p,m,q);
if frac(n/m)<>0 then m:=trunc(n/m)+1 else m:=n div m;
if n*pm*q then writeln('Коробками, сумма=',m*q);
if n*p=m*q then writeln('Без разницы, сумма=',n*p);
end.
Пример ввода:
12
12
10
120
Пример вывода:
Поштучно, сумма=144
Не нашли ответ?
Похожие вопросы