Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 310 03/08/2023


Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự

Đề bài: Viết chương trình nhập vào một xâu cho biết xâu đó có bao nhiêu kí tự không phải là dấu cách

Lời giải:

program khong_phai_cach;

uses crt;

var s:string;

      i,d:byte;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              if s[i]<>' ' then d:=d+1;

       write('Co ',d,' ki tu khong phai dau cach');

       readln;

end.

1 310 03/08/2023


Xem thêm các chương trình khác: