文档介绍：1027: 【入门】兑换硬币
题目描述
用一张一元票换1分、2分和5分的硬币,每种至少一枚, 问有几种换法.
输入无
输出只有一行(这意味着末尾有一个回车符号),包括1个整数。
program test27;
var i,j,k,count:integer;
begin
count:=0;
for i:=1 to 100 do
for j:=1 to 50 do
for k:=1 to 20 do
if i+2*j+5*k=100 then inc(count);
write(count);
end.
程序结构
一、顺序
二、分支
if 条件 then 语句一 else语句二
Case语句
case 表达式 of
常量1:语句;
常量2:语句;
else 语句;
end;
三、循环
while 条件 do
begin
end;
repeat
until;
for i:=初值 to 终值 do
for i:=初值 downto 终值 do
program ex1029;
var m,n,t,i:longint;
begin
readln(m,n);
if m>n then t:=n else t:=m;
for i:=t downto 1 do
if (m mod i=0) and (n mod i=0) then break;
writeln(i);
end.
输入:45 60
读程序写结果
1029: 【入门】求两个自然数M和N的最大公约数
题目描述
求两个自然数M和N的最大公约数(M,N都在长整型范围内)
输入一行,包括两个整数.
输出只有一行(这意味着末尾有一个回车符号),包括1个整数。
样例输入
45 60
样例输出
15
提示
来源
program ex1029;
var m,n,t,i:longint;
begin
readln(m,n);
if m>n then t:=n else t:=m;
for i:=t downto 1 do
if (m mod i=0) and (n mod i=0) then break;
writeln(i);
end.
辗转相除法, 又名欧几里德算法(Euclidean algorithm)乃求两个正整数之最大公因子的算法。它是已知最古老的算法, 其可追溯至3000年前
辗转相减法(求最大公约数),即尼考曼彻斯法。
其特色是做一系列减法,从而求得最大公约数。
例如:
两个自然数35和14,用大数减去小数,(35,14) >(21,14)->(7,14),此时,7小于14,要做一次交换,把14作为被减数,即(14,7)->(7,7),再做一次相减,结果为0,这样也就求出了最大公约数7。
m
n
r
45
60
m- n
15
30
15
45
15
15
30
60
45
15
15
0
用大数减去小数
m
n
r
45
60
m mod n
45
15
0
60
45
45
15
45
60
1029: 【入门】求两个自然数M和N的最大公约数
题目描述
求两个自然数M和N的最大公约数(M,N都在长整型范围内)
输入一行,包括两个整数.