Меню сайта

Задача №15

Даны купюры 1$,2$,5$,10$ ,их количество — неограниченно. Выдать данную зарплату всеми возможными способами.


Program for_15-

uses crt-

var s,s1,n,a,b,c,d:longint-

begin

clrscr-

write(‘введите сумму денег ‘)-readln(s)-

for a:=0 to s do

for b:=0 to trunc(s/2) do

for c:=0 to trunc(s/5) do

for d:=0 to trunc(s/10) do

begin

s1:=1*a+2*b+5*c+10*d-

if s=s1 then

begin

n:=n+1-

writeln(‘по 1$=’,a,’ по 2$=’,b,’ по 5$=’,c,’ по 10$=’,d)-

end-

end-

write(‘кол-во способов:’,n)-

readln-

end.

Категория: Циклы | Дата: 18.11.12

Меню раздела
Блок