Cho tệp SONGUYEN.TXT chứa các số nguyên, cách nhau bởi dấu cách Và không kết thúc bởi kí tự xuống dòng. Viết đoạn lệnh tính tích các số nguyên đó và ghi kết quả vào tệp KETQUA.OUT
2 câu trả lời
uses crt;
var f:text;
i,p:longint;
a:array[1..1000]of longint;
begin
assign(f,'SONGUYEN.TXT');reset(f);
p:=1; i:=1;
while not(eoln(f)) do
begin
read(f,a[i]);
p:=p*a[i];
end;
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
write(f,p);
close(f);
end.
uses crt;
var f:text; t,n:longint;
a:array[1..10000000] of longint;
begin
clrscr;
assign(f,'SONGUYEN.TXT');reset(f);
t:=1;
while not(eoln(f)) do
begin
inc(n);
read(f,a[n]);
t:=t*a[n];
end;
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
writeln(f,t);
close(f);
end.
