Question

Đã trả lời bởi chuyên gia

Answer 1

1) Đây là một chương trình Pascal để đọc dữ liệu từ tệp input6.txt, xóa dấu cách và ghi kết quả vào tệp output6.txt:

```
var
inputFile, outputFile: Text;
inputString, outputString: string;
i: integer;
begin
AssignFile(inputFile, 'input6.txt');
AssignFile(outputFile, 'output6.txt');

Reset(inputFile);
Readln(inputFile, inputString);
CloseFile(inputFile);

// Xóa các dấu cách trong xâu
outputString := '';
for i := 1 to Length(inputString) do
if inputString[i] <> ' ' then
outputString := outputString + inputString[i];

// Ghi kết quả ra tệp output6.txt
Rewrite(outputFile);
Writeln(outputFile, outputString);
CloseFile(outputFile);
end.
```

2) Đây là một chương trình Pascal để tính tổng 2 số a, b từ tệp tong.inp và xuất kết quả vào tệp tong.out:

```
var
inputFile, outputFile: Text;
a, b, sum: integer;
begin
AssignFile(inputFile, 'tong.inp');
AssignFile(outputFile, 'tong.out');

Reset(inputFile);
Readln(inputFile, a, b);
CloseFile(inputFile);

sum := a + b;

Rewrite(outputFile);
Writeln(outputFile, sum);
CloseFile(outputFile);
end.
```

...Xem thêm

Answer 2