Viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím, mỗi từ phải được viết trên 1 dòng.
Quảng cáo
1 câu trả lời 106
program bai_giai;
uses crt;
var s:string;i:longint;
begin
clrscr;
write('nhap xau:');readln(s);
for i:=1 to length(s) do if(s[i]=' ')then writeln else write(s[i]);
readln;
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
149631 -
Đã trả lời bởi chuyên gia
99998 -
Đã trả lời bởi chuyên gia
97612 -
Đã trả lời bởi chuyên gia
80300 -
Đã trả lời bởi chuyên gia
73097 -
Đã trả lời bởi chuyên gia
56190 -
Đã trả lời bởi chuyên gia
55568
Gửi báo cáo thành công!
