百度作业网用Free Pascal 做 求两个正整数的最大公约数
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/07/05 06:27:31
用Free Pascal 做 求两个正整数的最大公约数
1.求两个正整数的最大公约数
2.任给一个自然数你,求出这个自然数的不同因数的个数.
例如n=6时,因为1,2,3,6这4个数均是6的因数,故输出total=4.
3.输入年,月,日,求这一天是星期几.
1.求两个正整数的最大公约数
2.任给一个自然数你,求出这个自然数的不同因数的个数.
例如n=6时,因为1,2,3,6这4个数均是6的因数,故输出total=4.
3.输入年,月,日,求这一天是星期几.
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日是星期一.
……
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日是星期一.
……
用Free Pascal 做 求两个正整数的最大公约数
1.求两个正整数（不超过一百位）的和.2.求两个正整数（不超过一百位）的差.用Free pascal
free pascal 求最大公约数与最小公倍数
pascal 题,输入5个正整数求它们的最大公约数.
Pascal语言求两个数的最小公倍数和最大公约数
求两个正整数的最大公约数,用算法怎么表示
VB 求两个正整数的最大公约数
用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数
FREE PASCAL,输入两个数,求最小公倍数
编写一个函数,求两个正整数的最大公约数
求两个正整数m和n的最大公约数
c语言编程求两个正整数的最大公约数和最小公倍数!