Паскаль срочно.!!!!!!!! Один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн. Потрібно купити диски на суму m (m больше 100) грн. Як виконати покупку оптимально? 1.1. Введіть m, виведіть кількість блоків і окремих дисків.
Паскаль срочно.!!!!!!!!
Один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн. Потрібно купити диски на суму m (m>100) грн. Як виконати покупку оптимально? 1.1. Введіть m, виведіть кількість блоків і окремих дисків.
Гость
Ответ(ы) на вопрос:
Гостьconst
cost_1 = 10;
cost_pack = 90;
var
m: integer;
begin
readln(m);
writeln('Блоков: ', m div cost_pack);
writeln('Дисков: ', (m mod cost_pack) div cost_1);
end.
Не нашли ответ?
Похожие вопросы