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

0 bình luận về “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”

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

   Bình luận

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

      

   Bình luận