Question

Мальчик Вася в общем-то не жалуется на свою жизнь,но для полного счастья ему не хватает N конфет.Конфеты в магазине продаются или поштучно или в коробках.Одна конфета стоит P копеек,а коробка содержащая M конфет - Q копеек.Определить минимальную сумму,которую нужно потратить Васе,чтобы стать полностью счастливым.

Answer 1

//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*p<m*q then writeln('Поштучно, сумма=',n*p) else
  if n*p>m*q then writeln('Коробками, сумма=',m*q);
 if n*p=m*q then writeln('Без разницы, сумма=',n*p);
end.

Пример ввода:
12
12
10
120
Пример вывода:
Поштучно, сумма=144