Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên một dòng.
Viết chương trình liệt kê các từ của một xâu ký tự được nhập vào từ bàn phím, mỗi từ phải được viết trên một dòng.
uses crt;
var i:longint; s,a:string;
begin
clrscr;
write(‘Nhap vao mot xau ki tu: ‘);readln(s);
s:=’ ‘+s+’ ‘;
for i:=2 to length(s) Do
if (s[i]=’ ‘)and(s[i-1]<>’ ‘) then begin writeln(a); a:=”; end else
if s[i]<>’ ‘ then a:=a+s[i];
readln
end.
program hama;
uses crt;
var s: string;
i: integer;
begin
clrscr;
write(‘Nhap xau S: ‘); readln(s);
for i:= length(s) downto 1 do if (s[i]=#32) and (s[i+1]=#32) then delete(s,i,1);
if s[1]=#32 then delete(s,1,1);
for i:=1 to length(s) do if s[i]<>#32 then write(s[i]) else writeln;
readln
end.