Question

tệp dulieu.txt có chứa 3 số a,b,c. viết chương trình tính tổng và tích của 3 số đó, ghi kết quả vào tệp ketqua.txt?

Answer 1

const fi='dulieu.txt';

fo='ketqua.txt';

var f1,f2:text;

a,b,c,t,s:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b,c);

t:=a+b+c;

s:=a*b*c;

writeln(f2,t);

writeln(f2,s);

close(f1);

close(f2);

end.