Viết chương trình nhập vào một xâu sau đó đếm số từ đó trong xâu (dựa vào khoảng cách để xác định số từ)
2 câu trả lời
program phuongt;
uses crt;
var s: string;
d, i: integer;
begin
clrscr;
write('Nhap xau S = '); readln(s);
for i:=1 to length(s) do if s[i]=' ' then d:=d+1;
write('Vay xau S co tat ca ', d+1, ' tu');
readln
end.
Program So_tu;
Uses crt;
Var i,dem: integer;
S: string;
Begin
Clrscr;
Write(‘Nhap xau S: ‘); Readln(S);
Dem:=0;
S:=S+’ ‘;
For i:=1 to length(S) do
If S[i]=#32 then dem:=dem+1;
Writeln(‘Trong xau co tat ca’,dem,’tu’);
End.
