pascal求两个数的最大公约数

来源：百度知道 编辑：UC知道 时间：2024/05/18 15:22:18
谁能用pascal求出两个数的最大公约数,必须用for循环语句求哦,我是初学者,这是老师的作业,偶不会,谁能帮下,重金奖赏阿（100分 or 200分（追加哦））...
如果有时间还可以帮我求下
15、输入两个数，求出这两个数的最大公约数。
16、输入一个数，判断这个数是否为质数（质数：大于1，且除和它本身外，不能被其它整数所整除的整数。）
17、输出如下图形：

1、A
BBB
CCCCC
DDDDDDD
CCCCC
BBB
2、 A
A B
A B C
A B C D
……
A B………Z

18、输入一个数，判断该数是否为质数（素数）

15：
program gongyue;
var a,b,c,d:integer;
begin
writeln('please input a,b');
readln(a,b);
if a>b then begin c:=a; a:=b; b:=c; end;
for c:=1 to a do
if b mod c=0 then d:=c;
writeln(d);
readln;
end.

16：
program gongyue;
var a,b,c,d:integer;
begin
writeln('please input a,b');
readln(a,b);
if a>b then begin c:=a; a:=b; b:=c; end;
for c:=1 to a do
if b mod c=0 then d:=c;
writeln(d);
readln;
end.

17：1：
program gongyue;
var a,b,c,d:integer;
begin
writeln('please input a,b');
readln(a,b);
if a>b then begin c:=a; a:=b; b:=c; end;
for c:=1 to a do
if b mod c=0 then d:=c;
writeln(d);
readln;
end.