Bài 8:

program so_cau;

var s:ansistring;  {nếu là đoạn văn ngắn thì string thôi}

      d:byte;

      i:integer;  {nếu là đoạn văn ngắn thì byte thôi}

begin

       clrscr;

       write('Nhap doan van: ');  readln(s);

       d:=0;

       for i:=1 to lengh(s) do

               if s[i]='.' then d:=d+1;

       write('So cau la: ',d);

       readln;

end.

Bài 16:

program xoa_cuoi;

uses crt;

var s:string;

begin

       clrscr;

       write('Nhap xau: ');  readln(s);

       delete(s,length(s),1);

       write('Xau sau khi xoa ki tu cuoi la: ',s);

       readln;

end.

Bài 8

var s:string;

i,a:integer;

begin

a:=1;

write('Nhap doan van: ');readln(s);

for i:=1 to length(s) do if s[i]='.' then a:=a+1;

writeln('So cau trong doan van: ',a);

readln

end.

Bài 16

var s:string;

begin

write('Nhap xau : ');readln(s);

delete(s,length(s),1);

writeln(s);

readln

end.