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 ?

0 bình luận về “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 ?”

1. 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.

   -Cho mình 5 sao+1 cảm ơn+1 câu trả lời hay nhất nhé^^

   Bình luận