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

Question

giangnguyen · Answer

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.

ngocdiep · Answer

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%