viết chương trình nhập vào một xâu đếm xem xâu đó có bao nhiêu từ bao nhiêu kí tự
2 câu trả lời
var s: string;
i, d: byte;
begin
write('nhap xau: '); readln(s);
d:=0;
Writeln('co ', length(s), ' ki tu');
For i:=1 to length(s) do
If s[i]=' ' then inc(d);
Write('co ', d+1, ' tu');
Readln
End.
program tu_kitu;
uses crt;
var s:string;
i,d:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
d:=1;
for i:=1 to length(s) do
if s[i]=' ' then d:=d+1;
writeln('Co ',d,' tu');
writeln('Co ',length(s),' ki tu');
readln;
end.
