一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）.

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 23:26:29

一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）.
一道pascal试题,
输入两个数a,b求两个数的最大公因数（用while语句）.

一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）.
辗转相除法.
但楼上的不对,连输入都没有,
下面是修改后的：
var
a,b,c:integer;
begin
readln(a,b);
while b>0 do
begin
c:=b;
b:=a mod b;
a:=c
end;
writeln(a)
end.

var a,b,c;integer;
begin
while b>0 do
begin
c:=b;
b:=a mod b;
a:=c;
end;
writeln(a);
end.

2L的答案是对的，这是我的
program wood;
var a,m,n:integer;
begin
readln(m,n);
a:=m mod n;
while a<>0 do
begin
m:=n;
n:=a;
a:=m mod n;
end;
writeln(n);
end.

program zuidagongyinshu;
var
i,j,k:integer;
begin
readln(i,j);
while j>0 do
begin
k:=j;
j:=i mod j;
i:=k;
end;
writeln(i)
end.

一道pascal试题,输入两个数a,b求两个数的最大公因数（用while语句）. FREE PASCAL,输入两个数,求最小公倍数用free pascal编程：输入两个数,求他们的最大公因数和最小公倍数 pascal求两个数的最小公倍数输入两个正整数A,B,求A ,B的最小公倍数.输入格式两个数A和B(A、B 求n个数的最大值和最小值（pascal）【试题描述】任意输入n个整数,把它们的最大值,最小值求出来.【输入描述】输入只有一行,包括一个整数n(1 求n个数的最大值和最小值用Pascal试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1 求n个数的最大值和最小值（Pascal）试题描述任意输入n个整数,把它们的最大值,最小值求出来.输入要求输入只有一行,包括一个整数n(1 Free Pascal解答A B C D E F 试题 A:【入门】求任意三位数各个数位上数字的和【试题描述】对于一个任意的三位自然数X,编程计算其各个数位上的数字之和S.【输入描述】输入一行,只有一个整数x pascal多重循环：A、B两个自然数的和、差、积、商四个数加起来等于243,求A、B两数. pascal程序 a,b两个自然数的和、差、积、商四个数加起来等于243,求a,b两数. pascal编程计算输入数中偶数的平均值输入数据以-1结束试题描述编程计算所有输入的数中偶数的平均值.输入数据以-1结束.输入要求一行,若干个数输出要求一行,一个数,保留两位小数输入在free pascal如何判断两个数a,b,输出较大数的平方值 PASCAL求按照a*b=的格式输入算式,通过计算输出a*b的结果 pascal：已知两个数的最大公约数和最少公倍数求这两个数的最少差给出a和b（a Pascal语言求两个数的最小公倍数和最大公约数 pascal输入a,b求它们的最大公因数和最小公倍数,用辗转相除法如题 pascal函数和过程5、输入a、b、c,计算m.已知m=max(a,b,c)/(max(a+b,b,c)×max(a,b,b+c))将求三个数的最大数max(x,y,z)定义成函数和过程两种方法作此题.