viết chương trình tính tổng 3 số a,b,c. Yêu cầu :a,b,c đc lấy từ tệp SONGUYEN.INP, kết quả đưa vào tệp KETQUA.OUT
2 câu trả lời
uses crt;
var f:text; a,b,c:longint;
begin
assign(f,'SONGUYEN.INP');reset(f);
readln(f,a,b,c);
close(f);
assign(f,'KETQUA.OUT');rewrite(f);
writeln(f,a+b+c);
close(f);
end.
Const Fi='SONGUYEN.INP';
Fo='KETQUA.OUT';
Var f,g: text;
a,b,c,s: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Read(f,a,b,c);
s:=a+b+c;
Write(g,s);
Close(f);
Close(g);
End.
Câu hỏi trong lớp
Xem thêm
