Viết chương trình tính tổng 2 số a và b (Input.txt) File đầu vào : dòng 1 chứa 2 số a và b cách nhau bởi dấu cách (Output.txt) File đầu ra : gồm 1 dòng là giá trị tổng a và b Ví dụ : input.txt : 4 9 Output.txt : 13
2 câu trả lời
uses crt;
var a,b:longint; d:text;
begin
clrscr;
assign(d,'input.txt');reset(D);
readln(d,a,b);
close(D);
assign(d,'output.txt');rewrite(D);
writeln(d,a+b);
close(D);
readln
end.
program hoctep;
uses crt;
var f,g:text;
a,b,t:integer;
begin
Assign(f,'Input.txt');
Assign(g,'Output.txt'); rewrite(g);
{$I-} reset(f); {$I+}
if IOresult<>0 then
begin
rewrite(f);
reset(f);
end;
readln(f,a,b);
write(g,a+b);
close(f); close(g);
end.
