K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
![](https://rs.olm.vn/images/avt/0.png?1311)
ML
2 tháng 6 2020
Giả sử trên đĩa tồn tại một tệp F chứa các số nguyên có tên KQ.DAT, để đọc dữ liệu từ tệp, ta lần lượt thực hiện các thao tác:
A. Assign(F,'KQ.DAT');
Reset(F);
Close(F);
B. Reset(F);
Read(F,x);
Assign(F,'KQ.DAT');
Close(F);
C. Assign(F,'KQ.DAT');
Rewrite(F);
Read(F,x);
Close(F);
D. Assign(F,'KQ.DAT');
Reset(F);
Readln(F,x);
Close(F);
![](https://rs.olm.vn/images/avt/0.png?1311)
5 tháng 1 2022
Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên
![](https://rs.olm.vn/images/avt/0.png?1311)
7 tháng 10 2018
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘0’<=a[i]) and (a[i]<=’9’) then Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Thứ tự sắp xếp
12. End.
8. End;
11. Readln;
2. Begin
7. Readln(f,i);
9. Close(f);
1. Var f:text; i: byte;
10. writeln(i);
3. Assign(f,'D:/so.txt');
4. Reset(f);
5. While not(eof(f)) Do
6. Begin