神马品牌网金达日美刀具b120:2道题PASCAL
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 01:55:32
1、 输入两个整数，用辗转相除法求他们的最大公约数。
2、输入一个整数，计算它各位上数字的和。（注意：是任意位的整数）
2、输入一个整数，计算它各位上数字的和。（注意：是任意位的整数）
第一题
var
a,b,r:integer;
begin
readln(a,b);
repeat
r:=a mod b;
a:=b;
b:=r;
until b=0;
writeln(a);
end.
第二题
var
a,b:integer;
begin
readln(a);
b:=0;
while a>0 do
begin
b:=b+a mod 10;
a:=a div 10
end;
writeln(b);
end.