Quảng cáo
3 câu trả lời 2121
ttphulhp
program oken;
uses crt;
var s: string;
dem,i,n:integer;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
dem:=0;
for i:=1 to n do
if s[i]=' ' then dem:=dem+1;
if dem<>0 then
writeln('Co ',dem,' khoang trang trong xau.')
else
writeln('Khong co khoang trang nao trong xau.');
readln;
end.
ttphulhp
program oken;
uses crt;
var s: string;
dem,i,n:integer;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
dem:=0;
for i:=1 to n do
if s[i]=' ' then dem:=dem+1;
if dem<>0 then
writeln('Co ',dem,' khoang trang trong xau.')
else
writeln('Khong co khoang trang nao trong xau.');
readln;
end.
program oken;
uses crt;
var s: string;
dem,i,n:integer;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
dem:=0;
for i:=1 to n do
if s[i]=' ' then dem:=dem+1;
if dem<>0 then
writeln('Co ',dem,' khoang trang trong xau.')
else
writeln('Khong co khoang trang nao trong xau.');
readln;
end.
Quảng cáo
Bạn muốn hỏi bài tập?
