lập trình nhập vào 1 xâu kí tự đếm và thông báo ra màn hình số lượng kí tự trắng có trong xâu mn giúp với ạ!
2 câu trả lời
program oken;
uses crt;
var s: string;
i,dem: integer;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
for i:=1 to length(s) do
if s[i]=' ' then
dem:=dem+1;
writeln('So ky tu trang co trong xau: ',dem);
readln;
end.
uses crt;
var st : string;
d,i : integer;
begin
write('Nhau xau :'); readln(st);
for i:=1 to length(st) do if st[i]=#32 then d:=d+1;
write(d);
readln
end.
Câu hỏi trong lớp
Xem thêm
