viết chương trình nhập vào xâu s. đếm số kí tự trắng có trong xâu s( xâu tự cho)
2 câu trả lời
uses crt;
var s:string; i,d:longint;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
if s[i]=#32 then inc(d);
writeln('Ket qua: ',d);
readln
end.
program kitu_trang;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do
if s[i]=' ' then d:=d+1;
write('Co ',d,' ki tu trang trong xau ',s);
readln;
end.
