Составить программу, решающую следующую : вы покупаете товар, и у вас имеются монеты номиналом 1, 2, 5, 10 рублей. наберите необходимую сумму товара в n рублей так, чтобы она состояла из минимального количества монет. язык паскаль
Program noname; var a,b,c,d,e; begin readln(a); b:=a div 10; a:=a-b; c:=a div 5; a:=a-c; d:=a div 2; a:=a-d; e:=a; writeln('Десяток:',b); writeln('Пятёрок:',c); writeln('Двоек:',d); writeln('Единиц:',e); writeln('Всего монет:'(b+c+d+e)); end.
1. Сидеть не ближе 50см и не дальше 1.5м от монитора 2. Сохранять правильное положение рук на мыши и клавиатуре, при этом желательно использовать эргономические клавиатуры (Natural или Anti-RSI) и коврики со специальной подставкой для руки 3. Не пользоваться ЭЛТ-мониторами, только ЖК\IPS 4. По одному пользователю на компьютер (т.е. вдвоём за одним компьютером не сидеть) 5. Запускать программы только из белого списка разрешённых программ; впрочем, в этот список можно добавить проигрыватель виртуальных машин и запускать в нём что угодно. 6. Не кривляться на стуле, ага
1. Сидеть не ближе 50см и не дальше 1.5м от монитора 2. Сохранять правильное положение рук на мыши и клавиатуре, при этом желательно использовать эргономические клавиатуры (Natural или Anti-RSI) и коврики со специальной подставкой для руки 3. Не пользоваться ЭЛТ-мониторами, только ЖК\IPS 4. По одному пользователю на компьютер (т.е. вдвоём за одним компьютером не сидеть) 5. Запускать программы только из белого списка разрешённых программ; впрочем, в этот список можно добавить проигрыватель виртуальных машин и запускать в нём что угодно. 6. Не кривляться на стуле, ага
var a,b,c,d,e;
begin
readln(a);
b:=a div 10;
a:=a-b;
c:=a div 5;
a:=a-c;
d:=a div 2;
a:=a-d;
e:=a;
writeln('Десяток:',b);
writeln('Пятёрок:',c);
writeln('Двоек:',d);
writeln('Единиц:',e);
writeln('Всего монет:'(b+c+d+e));
end.