|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.03.2011, 14:47 | #1 |
Регистрация: 20.03.2011
Сообщений: 4
|
Задача на паскале (набрать заданную сумму денег)
Здравствуйте. помогите решить задачу на паскале.
Заданы количества монет достоинством 1,2,3,4,5,10 рублей. Можно ли из этих монет набрать заданную сумму. Если да, то указать как это сделать. Начало сделал и то наверно не правильно...\ program zadacha; uses crt; var a,b,,kol,sum : integer; begin clrscr; sum:=0; kol:=0; writeln ('Введите количества монет'); readln (a) ; writeln ('Введите нужную сумму'); readln (b) ; |
20.03.2011, 15:14 | #2 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Раскладываем заданную сумму, на все возможные суммы и проверяем на входимость
Код:
Последний раз редактировалось Летучий_СкилетиК; 21.03.2011 в 13:39. |
21.03.2011, 13:30 | #3 |
Регистрация: 20.03.2011
Сообщений: 4
|
спасибо =) а без процедур никак да?
|
21.03.2011, 13:47 | #4 |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
а разница какая?, да никакой просто без процедуры код становиться громоздким и не читаемым
Код:
|
21.03.2011, 15:12 | #5 |
Регистрация: 20.03.2011
Сообщений: 4
|
зацикливание происходит
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти всевозможные комбинации значений переменных точно дающих заданную сумму | timezero | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 04.02.2011 07:59 |
Жадный алгоритм. Задача о размене денег. | Multiman | Помощь студентам | 4 | 18.10.2010 13:15 |
Помогите найти алгебрасическую сумму!на паскале | vdv08 | Помощь студентам | 4 | 07.11.2008 00:19 |
Пожалуйста, требуется подсказка!!! Как изменить сумму денег в копейках на рубли во всем столбце???? | yur4eG | Microsoft Office Excel | 2 | 05.05.2008 18:52 |