Câu 1: 

uses crt;

var st: string;

i,dem: integer;

begin

clrscr;

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

dem:=0;

for i:=1 to length(st) do if st[i]=' ' then inc(dem);

write('So lan khoang trang: ',dem);

readln;

end.

Cau 2:

uses crt;

var st,s: string;

i,j,dem1,dem2: integer;

begin

clrscr;

write('Nhap xau 1: '); readln(st);

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

dem1:=0;

dem2:=0;

for i:=1 to length(st) do inc(dem1);

for j:=1 to length(s) do inc(dem2);

write('Tong so luong cac ki tu: ',dem1+dem2);

readln;

end.

Program Hotboy ; 

uses crt;

var xau:  string;

i,so: byte;

begin

clrscr;

So:=0;

Write('Nhap xau tu ban phim'); readln(xau);

For i:=1 to length(xau) do if xau[i]=' ' then so:=so+1;

writeln('So luong dau cach trong xau la',so);

Readln

End.

Câu $2$ 

Program Hotboy;

Uses crt;

Var xau,xau1: string;

 i,n,so: integer;

Begin

Clrscr;

Write('Nhap xau tu ban phim :'); readln(xau);

Write('Nhap xau tu ban phim :'); readln(xau1);

So:=length(xau) + length(xau1);

Write('tong so luong cac ki tu trong xau la',so);

Readln

End.