Question

Viết chương trình nhập 3 số nguyên từ bàn phím. Ghi giá trị 3 số nguyên đó vào tệp có tên dulieuvao.txt
Đọc dữ liệu từ tệp vào ba biến x, y, z, tính tổng T=x+y+x và lưu giá trị của tổng vào tệp dulieura.txt

Answer 1

Program HOC24;

const fi='dulieuvao.txt';

do='dulieura.txt';

var x,y,z: integer;

t: longint;

f: text;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,x,y,z);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=x+y+x; //(1)

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Chú ý:

Đề bạn ghi là T=x+y+x; nếu sai va đề đúng là T=x+y+z thi ban ghi như sau: t:=x+y+z; .Lưu ý thay cái này vào phần trước //(1). Rồi bạn có thể xóa //(1) đi.