Viết chương trình nhập một xâu từ bàn phím và đưa ra màn hình số lượng dấu cách trong xâu nếu có

Câu 1:

program bo_dau_cach;

uses crt;

var s:string;

      i:byte;

begin

       clrscr;

       write['Nhap xau: '];  readln[S];

       i:=1;

       while i

Chủ Đề