小宾馆简介范文:2道题PASCAL
来源:百度文库 编辑:高考问答 时间:2024/08/31 09:59:48
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.