Алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами

@samurr · Регистрация: 19.08.2014

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

Составить алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами(достоинством 1, 2, 3, 5 копеек)

@Puporev · 22.08.2014, 15:51

Pascal

var a,b,c,d,s,k:integer;
begin
k:=0;
for a:=0 to 100 do
for b:=0 to 50 do
for c:=0 to 33 do
for d:=0 to 20 do
if a+2*b+3*c+5*d=100 then k:=k+1;
write('k=',k);
readln
end.

@Sergio Leone · 22.08.2014, 15:57

Puporev, вместо

Pascal

for a:=0 to 100 do
for b:=0 to 50 do
for c:=0 to 33 do
for d:=0 to 20 do

не лучше было бы ?

Pascal

const NeedSum = 100;
....
for a:=0 to NeedSum do {копейки}
for b:=0 to NeedSum div 2 do {двушки}
for c:=0 to NeedSum div 3 do {трёшки}
for d:=0 to NeedSum div 5 do {пятачки}
....

всё то же самое, что у Вас, только чуть нагляднее и сумму (если надо) менять удобнее

@samurr · 22.08.2014, 16:18 **[ТС]**

Puporev,

Алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами

ошибка(

@Puporev · 22.08.2014, 16:20

У меня вообще-то между s и k стоит запятая, а у тебя фига.
Кстати убери вообще s, она не нужна.

@samurr · 22.08.2014, 16:28 **[ТС]**

Puporev, ахах).
Извиняюсь, виноват))

Добавлено через 48 секунд
Puporev, Спасибо, исправил.

Добавлено через 1 минуту
Puporev,

@Puporev · 22.08.2014, 16:31

Чтобы такого не было, нужно писать

Pascal

uses crt;
var......
begin
clrscr;
........

@samurr · 22.08.2014, 16:34 **[ТС]**

Puporev, буду знать)

Алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами

Решение

Решение

@samurr 0 / 0 / 0 Регистрация: 19.08.2014 Сообщений: 50
		1
	Алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами 22.08.2014, 14:50. Показов 4582. Ответов 7 Метки нет (Все метки) Составить алгоритм подсчета количества способов, которыми можно разменять рубль медными монетами(достоинством 1, 2, 3, 5 копеек) 0

@samurr 0 / 0 / 0 Регистрация: 19.08.2014 Сообщений: 50
	22.08.2014, 16:18 [ТС]	4
	Puporev, ошибка( 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.08.2014, 16:20	5
	Сообщение было отмечено samurr как решение Решение У меня вообще-то между s и k стоит запятая, а у тебя фига. Кстати убери вообще s, она не нужна. 1

@samurr 0 / 0 / 0 Регистрация: 19.08.2014 Сообщений: 50
	22.08.2014, 16:28 [ТС]	6
	Puporev, ахах). Извиняюсь, виноват)) Добавлено через 48 секунд Puporev, Спасибо, исправил. Добавлено через 1 минуту Puporev, 0

@samurr 0 / 0 / 0 Регистрация: 19.08.2014 Сообщений: 50
	22.08.2014, 16:34 [ТС]	8
	Puporev, буду знать) 0