Линейная задача на Паскале

[david-95]

Золотой самородок весит n грамм.Для взвешивания используют гири весом 100,50,3,1 гр.Как взвесить самородок,используя минимальное число гирь.

[Serge_Bliznykov]

WriteLn('гирь весом 100 г понадобится:', n div 100);
n:=n mod 100;
WriteLn('гирь весом 50 г понадобится:', n div 50);
n:=n mod 50;
WriteLn('гирь весом 3 г понадобится:', n div 3);
n:=n mod 3;
WriteLn('гирь весом 1 г понадобится:', n);