早教吧 育儿知识 作业答案 考试题库 百科 知识分享

用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\...