pascal 求n个数的积

来源：百度知道编辑：UC知道时间：2024/06/01 22:15:10

11
Description

输入若干个不等于0的整数或实数，求其积，最后输入的0表示数据结束

Input

只有一行共有若干个数，最后一个数是 0 表示数据结束( 0 不参加运算)

Output

只有一行且只有一个实数，按扩展实型的科学记数法形式输出

var
a:array[1..10000]of integer;
i,n,s:real;
begin
readln(n);
for i:=1 to n+1 do read(a[i]);
s:=1;
for i:=1 to n do s:=s*a[i];
writeln(s);
end

var
n,k : double;
begin
n:=1; read(k);
while k<>0 do
begin
n:=n*k;
read(k);
end;
writeln(n);
end.

var a,b:real;
begin
b:=1;
read(a);
while a<>0 do
begin
b:=b*a;
read(a);
end;
writeln(b);
end.