作业帮用pascal解下面各题读一组实数,遇零终止,打印其中正、负数的个数及各自的总和.用辗转相除法求两个自然数的最大公约数.
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/15 15:11:10
用pascal解下面各题读一组实数,遇零终止,打印其中正、负数的个数及各自的总和.用辗转相除法求两个自然数的最大公约数.
用pascal解下面各题
读一组实数,遇零终止,打印其中正、负数的个数及各自的总和.
用辗转相除法求两个自然数的最大公约数.
用pascal解下面各题读一组实数,遇零终止,打印其中正、负数的个数及各自的总和.用辗转相除法求两个自然数的最大公约数.
读一组实数,遇零终止,打印其中正、负数的个数及各自的总和.
var
\x05sum1,sum2:double;
\x05cnt1,cnt2:longint;
\x05x:double;
begin
\x05sum1 := 0; sum2 := 0;
\x05cnt1 := 0; cnt2 := 0;
\x05while true do
\x05begin
\x05\x05read(x);
\x05\x05if x = 0 then break;
\x05\x05if x < 0 then begin sum1 := sum1 + x; inc(cnt1); end;
\x05\x05if x > 0 then begin sum2 := sum2 + x; inc(cnt2); end;
\x05end;
\x05writeln(cnt1,' ',sum1:0:8);
\x05writeln(cnt2,' ',sum2:0:8);
end.
用辗转相除法求两个自然数的最大公约数.
var
\x05a,b:longint;
\x05function gcd(a,b:longint):longint;
\x05begin
\x05\x05if a mod b = 0 then exit(b)
\x05\x05else exit(gcd(b,a mod b));
\x05end;
begin
\x05read(a,b);
\x05writeln(gcd(a,b));
end.