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.
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
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.
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);
var s:string;
f1:text;
a:byte;
begin
assign(f1,'c:\ghixau1.txt'); rewrite(f1);
readln(s);
writeln(f1,s);
close(f1);
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