一道pascal试题,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/26 12:01:36

一道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.

pascal某试题求解请出几道pascal试题做一道PASCAL题目简单Pascal一道题一道Free Pascal题目一道pascal的题目关于一道pascal题目一道pascal题目啊一道Free Pascal 又一道free pascal题求pascal的一道题目! 请教一道free pascal题：