viết chương trình đọc từ tệp vao.txt 2 giá trị a,b tính hiệu của chúng rồi ghi kết quả vào tệp ra.txt
2 câu trả lời
program MTDH;
var a,b,hieu:byte;
$f_1,f_2$:text ;
begin
assign($f_1$,'vao.txt');reset($f_1$);
read($f_1$,a,b);
hieu:=a-b;
assign($f_2$,'ra.txt');rewrite($f_2$);
write($f_2$,hieu);
$close(f_1);$ $close(f_2);$
end.
hay xin hay nhất 100%
uses crt;
var a,b,h:byte;
f1,f2:text ;
begin
clrscr;
assign(f1,'vao.txt');reset(f1);
read(f1,a,b);
h:=a-b;
assign(f2,'ra.txt');
rewrite(f2);
write(f2,h);
close(f1);
close(f2);
readln;
end.
