作业帮 > 综合 > 作业

用Free Pascal 做 求两个正整数的最大公约数

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/19 09:44:28
用Free Pascal 做 求两个正整数的最大公约数
1.求两个正整数的最大公约数
2.任给一个自然数你,求出这个自然数的不同因数的个数.
例如n=6时,因为1,2,3,6这4个数均是6的因数,故输出total=4.
3.输入年,月,日,求这一天是星期几.
用Free Pascal 做 求两个正整数的最大公约数
1、听说这题用辗转相除法很好,不过我不会.
var
x,y,i:integer;
begin
readln(x,y);
for i:=x downto 1 do
if y mod i=0 then
begin
writeln(i);
break;
end;
readln;
end.
2、硬找
var
n,i,k:integer;
begin
readln(n);
for i:=1 to trunc(sqrt(n)) do
if n mod i=0 then
inc(k);
k:=k*2;
if trunc(sqrt(n))=sqrt(n) then
dec(k);
writeln(k);
end.
3、这题简单但是很麻烦.首先要知道1900年1月1日是星期一.
……