viet chuong trình nhập 1 xâu vào từ bàn phím.đếm số dấu cách có trong xâu rồi lưu kết quả vào tệp daucach.txt

0 bình luận về “viet chuong trình nhập 1 xâu vào từ bàn phím.đếm số dấu cách có trong xâu rồi lưu kết quả vào tệp daucach.txt”

1. var f:text;

         s:string;

         i,dem:byte;

   begin

    writeln(‘nhap mang’);

    readln(s);

    dem:=0;

    for i:=1 to n do 

     if s[i]=#32 then dem:=dem+1;

    assign(f,‘daucach.txt’);rewrite(f);

    write(f,dem);

    close(f);

   end.

   Bình luận

2. program dem_cach;

   uses crt;

   var f:text;

         s:string;

         i,d:byte;

   begin

          clrscr;

          Assign(f,’daucach.txt’);

          write(‘Nhap xau: ‘);  readln(s);

          d:=0;

          for i:=1 to length(s) do

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

          writeln(f,d);

          close(f);

   end.

   Bình luận