16.11.2009, 21:10
|
#8 (permalink)
|
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от Sem9273
Дано натуральное число N. Каким наименьшим количеством монет можно выплатить N копеек. Предполагается, что в наличии имеется монеты достоинством 1, 3, 5, 10, 20 и 50 копеек.
|
Прежде всего - модераторское замечание: НЕ ДУБЛИРУЙТЕ СООБЩЕНИЯ! Дубликаты удалены. На первый раз прощается, ну а дальше...
Теперь - задачка.
Код:
CONST
Nominal:ARRAY[1..6] of BYTE= (1,3,5,10,20,50);
VAR
N:WORD;
i:INTEGER;
BEGIN
Write('N= ');
ReadLn(N);
FOR i:=6 DOWNTO 1 DO
BEGIN
WriteLn(Nominal[i]:2, ' kop - ', (N div Nominal[i]):4);
N:=N mod Nominal[i];
END;
ReadLn;
END.
|
|
|