Inkscape программасының терезе элементтерінің атаула- рын дәптерге жаз. НУЖН ОТВЕТ НЕ НАПИШИТЕ ПРОСТО ЕДДКЛПЛКЩДПАО

На 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 драхме