Viết chương trình nhập vào một xâu cho biết trong sau có bao nhiêu phần tử là dấu cách
2 câu trả lời
uses crt;
var s:string;
i,dem:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i]=' ' then dem:=dem+1;
writeln('So dau cach co trong xau la: ',dem);
readln
end.
uses crt;
var st : string; i,d : integer;
begin clrscr;
write('Nhap xau :'); readln(st); d:=0;
for i:=1 to length(st) do if st[i]=#32 then d:=d+1;
write('Phan tu cach co trong xau :',d);
readln
end.
Câu hỏi trong lớp
Xem thêm
