BÀI 9: Viết chương trình nhập 1 xâu từ bàn phím. Hãy cho biết trong xâu đó có dấu cách hay không ?

Bài 9 : 

uses crt;

var S : string; C : char; i : byte;

begin

clrscr;

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

C := 'N';

for i := 1 to length(S) do

if S[i] = ' ' then C := 'Y';

if C = 'Y' then write('Xau co dau cach')

else write('Xau khong co dau cach');

readln

end.

Bài 9:

program Tin_hoc;

uses crt;

var i,d:integer;

      s:string;

begin

clrscr;

write('Nhap xau:');readln(s);n:=0;

for i:= 1 to length(s) do if ord(s[i]) = 32 then n:= 1;

if n= 1 then write('Co dau cach') else write('Khong co dau cach');

readln;

end.