KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
uses crt; var n,i,p:longint; a:array[1..1000000] of longint; begin clrscr; readln(n); p:=1; for i:=1 to n do begin read(a[i]); p:=p*a[i]; end; writeln(p); readln end.
var i,n : integer;
t : real;
begin
write (‘n= ‘); read(n);
t := 1;
for i:=1 to n do t:= t*i;
writeln(‘ Tich cua ‘,n,’ la ‘,t);
readln;
end.
uses crt;
var n,i,p:longint; a:array[1..1000000] of longint;
begin
clrscr;
readln(n);
p:=1;
for i:=1 to n do
begin
read(a[i]);
p:=p*a[i];
end;
writeln(p);
readln
end.