Question

Чистые компакт-диски продают в трёх видах упаковок. Упаковка из 100 дисков стоит 100 грн., из 20 дисков - 30 грн., а один диск стоит 2 грн. Какую минимальную сумму нужно истратить для покупки n таких дисков?

Входные данные

Количество дисков n (n ≤ 1000).

Выходные данные

Вывести минимальную сумму в гривнах для покупки n дисков.
-------------
PascalABC

Answer 1

Program z1;Var n,sum:integer;Begin  write('Введите кол-во дисков: ');  readln(n);  sum:= n div 100 * 100 + n mod 100 div 20 * 30 + n mod 10 * 2 ;  writeln('Сумма: ', sum);End.

7374e38c606e40da12f971116e554c5d.pas