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.

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:

uses crt;
var i,n,d:longint;s:string;
begin
clrscr;
   write('Nhap vao  xau S:');readln(S);
   writeln('1. Xau vua nhap co ',length(s),' ki tu');
   s:=upcase(s);
   writeln('2. Cac ky tu do khi chuyen thanh chu hoa: ',s);
   d:=0;
   for i:=1 to length(s) do
      if s[i] in ['0'..'9'] then inc(d);
   writeln('3. Xau vua nhap co ',d,' ki tu la so');
readln
end.