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
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.