[测试题]大家近来帮帮我啊~~~ [复制链接]

我老师布置了1个作业

任意输入2个数~~~求出他们的最大公约数
 
我写的程序是如下

var a,b,c,d :integer;
  begin
  readln(a,b);
  c:=a mod b;
  d:=b mod c;
  whlie c mod d<>0 do
  begin
  c:= c mod d;
  d:=d mod c;
  end;
  writeln(' ',c );
  end.


但是我任意输入2个数有些可以 有写不可以
请大家帮忙看下 谢谢 或则+小第的 QQ190235047

主要是你在运行 mod操作的时候没有检测除数是否为零，结果出现了除以0
所以在mod和div运用前一定要检查是否会出现除数为零的情况