Viết chưng trình nhập xâu s, xuất ra dãy a1,a2,a3...n với mỗi phần tử của dãy a là một từ trong xâu s Ví dụ: Input:'Nguyen Thi Thu Ngan' Output: a[1]='Nguyen' a[2]='Thi' a[3]='Thu' a[4]='Ngan' Với mỗi phần tử không chứa dấu cách đầu và cuối dãy
2 câu trả lời
uses crt;
var s,a:string; i,m:longint;
begin
clrscr;
write('s=');readln(s);
s:=s+' ';
for i:=1 to length(s) do
if(s[i]<>' ')and(s[i+1]=' ')then begin inc(m); a:=a+s[i]; if m<>0 then writeln('a[',m,']=',a); a:=''; end else if s[i]<>' ' then a:=a+s[i];
readln
end.
program tachxau;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
for i:=1 to length(st) do
if st[i]=' ' then writeln
else write(st[i]);
readln
end.
