nhập vài một xâu từ bàn phím. đưa ra màn hình mỗi từ một dòng
2 câu trả lời
program intu;
uses crt;
var s,st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
s:='';
for i:=1 to length(st) do
if st[i]=' ' then
begin
writeln(s);
s:='';
end
else s:=s+st[i];
writeln(s);
readln
end.
uses crt;
var st:string;
BEGIN
clrscr;
write('Nhap xau:'); readln(st);
while st<>'' do
begin
writeln(st[1]);
delete(st,1,1);
end;
readln
END.
Chúc bạn học tốt!
