Register

OR

Do you already have an account? Login

Login

OR

Don't you have an account yet? Register

Newsletter

Submit to our newsletter to receive exclusive stories delivered to you inbox!

Покупатель должен заплатить в кассу S руб.У него имеются купюры по 1,5,10,50,100,500,1000 и 10000 руб.Сколько купюр разного достоинства отдаст покупатель,если он начинает платить с самых крупных купюр?
Это паскаль,нужно через while сделать

более месяца назад
Просмотров : 24    Ответов : 1   

Лучший ответ:

>нельзя использовать mod и div
А и не надо, хотя с ними было бы понятнее.

type
TNominals=(nm1, nm5, nm10, nm50, nm100, nm500, nm1000, nm10000);

const
NomToNum:array[TNominals] of integer = (1, 5, 10, 50, 100, 500, 1000, 10000);

var s,q:integer;
j:TNominals;
begin
readln(s);
for j:=High(TNominals) downto Low(TNominals) do begin
q:=trunc(s/NomToNum[j]);
writeln(NomToNum[j],':',q);
s:=s-q*NomToNum[j];
end;

более месяца назад
Ваш ответ:
Комментарий должен быть минимум 20 символов
Чтобы получить баллы за ответ войди на сайт





Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров и нажмите кнопку Просмотр анимации.


Другие вопросы: