viet chuong trinh nhap xaâu bất kì tính số lần xuất hiện khoảng trắng(dấu cách)

0 bình luận về “viet chuong trinh nhap xaâu bất kì tính số lần xuất hiện khoảng trắng(dấu cách)”

1. var s: string;

         i, d: byte;

   Begin

        d:=0; 

        Write(‘nhap xau: ‘); readln(s);

        For i:=1 to length(s) do

            If s[i]=’ ‘ then d:=d+1;

        Write(‘co ‘, d, ‘ khoang trang’);

        Readln

   End.

   Bình luận

2. uses crt;
   var s:string; i,d:byte;
   begin
   clrscr;
      write(‘Nhap xau S: ‘);readln(s);
      d:=0;
      for i:=1 to length(s) do 
         if s[i]=’ ‘ then inc(d); 
      writeln(‘Co ‘,d,’ dau cach trong xau vua nhap’);
   readln
   end.

   Bình luận