Паскаль срочно.!!!!!!!! Один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн....

Question

Паскаль срочно.!!!!!!!!
Один компакт-диск коштує 10 грн., а блок з 10 дисків – 90 грн. Потрібно купити диски на суму m (m>100) грн. Як виконати покупку оптимально? 1.1. Введіть m, виведіть кількість блоків і окремих дисків.

Comments

программа нужна или как?

---

да программа

---

на любом удобном для меня языке конечно?

---

а паскаль. сорри

Answer 1

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.