pascal问题,高手请进,禁止灌水+刷屏。 闲杂人员勿进。 截止日期12月5...

发布网友 发布时间：2024-10-23 19:20

我来回答

共2个回答

热心网友 时间：2024-11-14 21:43

就是求x和y的最大公约数，程序如下：
program Project1;

function SuccDiv(const x, y: Longint): Longint;
var
max, min, i: Longint;
begin
if x >= y then
begin
max := x;
min := y;
end
else begin
max := y;
min := x;
end;
while min > 0 do
begin
i := max mod min;
max := min;
min := i;
end;
SuccDiv := max;
end;

var
x, y, z: Longint;
begin
Assign(Input, 'fruit.in');
Reset(Input);
Readln(x, y);
Close(Input);
z := SuccDiv(x, y);
Assign(Output, 'fruit.out');
Rewrite(Output);
Writeln(z);
Close(Output);
end.

热心网友 时间：2024-11-14 21:42

同意楼上，最大公约数。
规模很小，随便算算就行了^^