После обучения Архимед и Эратосфен переписывались еще много лет. Помогите определить, сколько денег нужно заплатить за отправку бандероли в древней Греции, если известно, что за бандероль весом до 50 грамм включительно взимается 10 драхм (дренегреческая валюта), а за каждые следующие полные или неполные 50 грамм еще по 5 драхм. Напишите программу, вычисляющую, какое наименьшее число монет по 10, 4 и 1 драхме надо заплатить за отправку бандероли весом w грамм.
на PascalABC.NET ------------------------ program aaa; const n=50; var w, c, x, d10, d4, d1: integer; begin writeln ('Введите вес бандероли'); readln (w); if w <= n then c:=10 else if w mod n = 0 then c:=10+((w div n)-1)*5 else c:=10+5+((w div n)-1)*5; d10:= c div 10; d4:= (c-10*d10) div 4; d1:= (c-d10*10-d4*4); writeln ('стоимость бандероли: ',c,' драхм'); writeln; writeln ('для оплаты нужно не менее'); writeln (d10:10,' монет по 10 драхм'); writeln (d4:10,' монет по 4 драхмы'); writeln (d1:10,' монет по 1 драхме'); end. ------------------ Результат работы программы: Введите вес бандероли 100 стоимость бандероли: 15 драхм для оплаты нужно не менее 1 монет по 10 драхм 1 монет по 4 драхмы 1 монет по 1 драхме