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

735

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 5)

Câu 20: 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.

Đánh giá

0

0 đánh giá