【入门】兑换硬币

题目描述

用一张一元票换1分、2分和5分的硬币，每种至少一枚， 问有几种换法.

输入

无

输出

输出只有一行（这意味着末尾有一个回车符号），包括1个整数。

 

[提交][状态][讨论版]

 

 

var
    y,e,w,x:longint;
begin
    for w:=1 to 19 do
        for e:=1 to 47 do
        begin
            y:=100-w*5-e*2;
            if y>=1 then x:=x+1;
        end;
    writeln(x);
end.

 

var
    e,w,x:longint;
begin
    for w:=1 to 19 do
        for e:=1 to 47 do
            if 100-w*5-e*2>=1 then inc(x);
    writeln(x);
end.