Покупатель должен заплатить в кассу 5 руб.

@kest · Регистрация: 02.11.2014

Author24 — интернет-сервис помощи студентам

Добрый день, помогите решить задачу

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

@Alex77755 · 31.03.2010, 20:31

в цикле от наибольшей суммы
Делишь сумму без остатка на достоинство купюры - узнаёшь их количество
С помощью Mod узнаёшь остаток и возвращаешь в цикл

@Toxa33rus · 31.03.2010, 20:31

Сообщение от Kest

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

не понял... О_о
пример напишите

@Alex77755 · 31.03.2010, 20:47

Visual Basic

Private Sub Комманда1_Click()
Dim K() As String
Dim D(7)
Dim SUM
Dim J, S
 
1234582 K = Split("10000, 1000, 500, 100, 50, 10, 5, 1", ",")
SUM = InputBox("Введите сумму", "Проверки на правильность нет")
S = SUM & vbCrLf
For J = 0 To 7
D(J) = Val(SUM) \ Val(K(J))
SUM = SUM Mod Val(K(J))
S = S & K(J) & " ---- " & D(J) & vbCrLf
Next J
MsgBox S
End Sub

@kest · 31.03.2010, 21:19

не понял...

вот такие странные задачи у нас на экзамене ... =\

С помощью Mod узнаёшь остаток и возвращаешь в цикл

если честно, то Мод не проходили и многое другое ...
З.Ы.
СПАСИБО !

@Loly · 23.05.2010, 18:53

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

@Alex77755 · 26.05.2010, 04:57

А посмотреть внимательно на строчку

K = Split("10000, 1000, 500, 100, 50, 10, 5, 1", ",")

вера не позволляет?

@Loly · 26.05.2010, 21:02

нееет...
там вместо 5 рублей должен заплатить s рублей

@Loly · 02.06.2010, 15:25

помогите если кто знает! пожалуйста!
я над этой задачей уже который день сижу!и не работает!((
с 5 рублями всё выходит, а с неизвестной суммой нужен совершенно другой алгоритм, но на vba переложить не получается!((
буду очень признательна!!!))

@Toxa33rus · 02.06.2010, 21:09

Visual Basic

s = 666
otvet = s & "=" & vbCrLf
K = Array(10000, 1000, 500, 100, 50, 10, 5, 1)
For i = 0 To UBound(K)
  otvet = otvet & K(i) & "x" & s \ K(i) & vbCrLf
  s = s Mod K(i)
Next i
MsgBox otvet

@Loly · 02.06.2010, 23:47

спасииибоо большооее!!!!!!!!=)

@kest 0 / 0 / 1 Регистрация: 02.11.2014 Сообщений: 2
		1
	Покупатель должен заплатить в кассу 5 руб. 31.03.2010, 19:48. Показов 3460. Ответов 10 Метки нет (Все метки) Добрый день, помогите решить задачу Покупатель должен заплатить в кассу 5 руб. У него имеются купюры по 1, 5, 10, 50, 100, 500, 1000 и 10 000 руб. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	31.03.2010, 20:31	2
	в цикле от наибольшей суммы Делишь сумму без остатка на достоинство купюры - узнаёшь их количество С помощью Mod узнаёшь остаток и возвращаешь в цикл 0

@Toxa33rus 3896 / 899 / 122 Регистрация: 16.04.2009 Сообщений: 1,825
	31.03.2010, 20:31	3
	Сообщение от Kest Покупатель должен заплатить в кассу 5 руб. У него имеются купюры по 1, 5, 10, 50, 100, 500, 1000 и 10 000 руб. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр? не понял... О_о пример напишите 0

@kest 0 / 0 / 1 Регистрация: 02.11.2014 Сообщений: 2
	31.03.2010, 21:19	5
	не понял... вот такие странные задачи у нас на экзамене ... =\ С помощью Mod узнаёшь остаток и возвращаешь в цикл если честно, то Мод не проходили и многое другое ... З.Ы. СПАСИБО ! 0

@Loly 0 / 0 / 0 Регистрация: 23.05.2010 Сообщений: 11
	23.05.2010, 18:53	6
	а если условие немного изменено?! Покупатель должен заплатить в кассу S рублей. У него имеются 1, 2, 5, 10, 50, 100, 500 рублей. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных? 0

@Alex77755 11508 / 3794 / 681 Регистрация: 13.02.2009 Сообщений: 11,197
	26.05.2010, 04:57	7
	А посмотреть внимательно на строчку K = Split("10000, 1000, 500, 100, 50, 10, 5, 1", ",") вера не позволляет? 0

@Loly 0 / 0 / 0 Регистрация: 23.05.2010 Сообщений: 11
	26.05.2010, 21:02	8
	нееет... там вместо 5 рублей должен заплатить s рублей 0

@Loly 0 / 0 / 0 Регистрация: 23.05.2010 Сообщений: 11
	02.06.2010, 15:25	9
	помогите если кто знает! пожалуйста! я над этой задачей уже который день сижу!и не работает!(( с 5 рублями всё выходит, а с неизвестной суммой нужен совершенно другой алгоритм, но на vba переложить не получается!(( буду очень признательна!!!)) 0

@Loly 0 / 0 / 0 Регистрация: 23.05.2010 Сообщений: 11
	02.06.2010, 23:47	11
	спасииибоо большооее!!!!!!!!=) 0