Câu 3:

a) Var f:text;

b) assign(f,'C:\bin\dulieu.txt');

c) readln(f,a,b,c);

d)

Câu 4:

a)

(1): Khai báo biến d là kiểu số thực.

(2): Khai báo biến tập văn bản f;

(3): Khai báo biến x,y là kiểu số nguyên.

(4): Gắn tệp f với tên tập là  TRAI.TXT.

(5): Reset biến f, tải về rỗng để đọc file.

(6): Lặp lại khi đọc chưa hết file f;

(7): Đọ biến x, y từ tệp f;

(8): Gán biến d bằng căn bận 2 của x*y+y*y;

(9): Xuất ra màn hình 'khoang cach: (biến d)';

(10): Đóng file f;

b) Chương trình:

uses crt;
var f:text; // Khai bao bien tep
begin
clrscr;
   assign(f,'output.pas');rewrite(f); // Mo tep
      writeln(f,'1 2 3 4 5 6 7 8 9 10');
   close(f); //Dong tep
end.

1. Kiểu dữ liệu của biến d là số thực

2. Kiểu dữ liệu của f là ký tự

3, Kiểu dữ liệu của x,y là số nguyên
4. Gán "TRAI.TEXT" cho giá trị f 

5. Xóa biến f (biến f sẽ về giá trị 0)
6. Nếu giá trị biến f là False thì sẽ thực hiện ...

7.  Đọc các biến d,x,y

8. Giá trị d sẽ bằng (x*x+y*y)^2

9. Nhập giá trị cho d

10. Đóng cửa sổ

Cho mik xin ctlhn ạ =))