英语翻译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/07/18 20:48:43
![英语翻译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____给我逐字逐句地翻译另外帮我解释这道题](/uploads/image/z/12049876-28-6.jpg?t=%E8%8B%B1%E8%AF%AD%E7%BF%BB%E8%AF%912%E3%80%81vara%2Cb%3Ainteger%3Bfunctionwork%28a%2Cb%3Ainteger%29%3Ainteger%3Bbeginif+a+mod+b+0+thenwork+%3A%3D+work%28b%2Ca+mod+b%29elsework+%3A%3D+b%3Bend%3Bbeginread%28a%2Cb%29%3Bwriteln%28work%28a%2Cb%29%29%3Bend.%E8%BE%93%E5%85%A5%EF%BC%9A2012%E8%BE%93%E5%87%BA%EF%BC%9A___4____%E7%BB%99%E6%88%91%E9%80%90%E5%AD%97%E9%80%90%E5%8F%A5%E5%9C%B0%E7%BF%BB%E8%AF%91%E5%8F%A6%E5%A4%96%E5%B8%AE%E6%88%91%E8%A7%A3%E9%87%8A%E8%BF%99%E9%81%93%E9%A2%98)
英语翻译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____