作业帮英语翻译2、vara,b:integer;functionwork(a,b:integer):integer;beginif a mod b 0 thenwork := work(b,a mod b)elsework := b;end;beginread(a,b);writeln(work(a,b));end.输入：2012输出：___4____给我逐字逐句地翻译另外帮我解释这道题
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/10 10:31:28
英语翻译2、vara,b:integer;functionwork(a,b:integer):integer;beginif a mod b 0 thenwork := work(b,a mod b)elsework := b;end;beginread(a,b);writeln(work(a,b));end.输入：2012输出：___4____给我逐字逐句地翻译另外帮我解释这道题
英语翻译
2、var
a,b:integer;
functionwork(a,b:integer):integer;
begin
if a mod b 0 then
work := work(b,a mod b)
else
work := b;
end;
begin
read(a,b);
writeln(work(a,b));
end.
输入：2012
输出：___4____
给我逐字逐句地翻译
另外帮我解释这道题中work的意思 read的意思
英语翻译2、vara,b:integer;functionwork(a,b:integer):integer;beginif a mod b 0 thenwork := work(b,a mod b)elsework := b;end;beginread(a,b);writeln(work(a,b));end.输入：2012输出：___4____给我逐字逐句地翻译另外帮我解释这道题
var
a, b: integer;
function work(a, b: integer): integer; //求a和b的最大公约数
begin
if a mod b 0 then //如a不能被b整除
work := work(b, a mod b) //a和b的最大公约数等于b和a mod b 的最大公约数
else
work := b; //如a能被b整除,a和b的最大公约数就等于b
end;
begin
read(a, b); //读入a和b的值
writeln(work(a, b)); //work是自定义函数名（自己取的名字）,它的功能在上面已作详细介绍
end.
输入：20 12
输出：___4____