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

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 322 05/07/2023


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

Đề bài: 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. 

Lời giải:

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.

1 322 05/07/2023


Xem thêm các chương trình khác: