viết chương trình nhập từ bàn phím 1 sâu bất kì cho biết có bao nhiêu kí tự trông khoãng trống

0 bình luận về “viết chương trình nhập từ bàn phím 1 sâu bất kì cho biết có bao nhiêu kí tự trông khoãng trống”

1. program oken;
   uses crt;
   var s: string;
       dem,i,n:integer;
   begin
           clrscr;
           write(‘Nhap 1 xau bat ky: ‘); readln(s);
           dem:=0;
           for i:=1 to n do
                   if s[i]=’ ‘ then dem:=dem+1;
           if dem<>0 then
                   writeln(‘Co ‘,dem,’ khoang trang trong xau.’)
           else
                   writeln(‘Khong co khoang trang nao trong xau.’);
           readln;
   end.

   Bình luận

2. 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 ki tu khoang trong trong xau la’,so);

   Readln

   End;

   Bình luận