Câu 1:
1) Khai báo biến tệp: f,f1:text;
2) Gắn tên tệp:
Assign(f,'DATA.TXT');
Assign(f1,'KETQUA.TXT');
3) Mở tệp để đọc: reset(f);
4) Đọc dữ liệu từ tệp: read(f,n);
5) Đóng tệp:
close(f);
close(f1);
Câu 2:
program bai_giai;
uses crt;
var S:string;
i,d:byte;
begin
clrcsr;
write('Nhap xau: '); readln(s);
writeln('a. Co ',d,' ki tu');
d:=0;
for i:=1 to length(s) do
begin
s[i]:=upcase(s[i]);
if s[i] in ['0'..'9'] then d:=d+1;
end;
writeln('b. Xau in hoa la: ',s);
writeln('c. Co ',d,' ki tu so');
readln;
end.
