viết chương trình nhập vào xâu, in ra màn hình mỗi từ trên mỗi dòng.

0 bình luận về “viết chương trình nhập vào xâu, in ra màn hình mỗi từ trên mỗi dòng.”

1. program cactu;

   uses crt;

   var s,st:string;

         i:byte;

   begin

         clrscr;

        write(‘Nhap xau: ‘);  readln(s);

        st:=”;

        for i:=1 to length(s) do

              if s[i]<>’ ‘ then st:=st+s[i] 

              else begin

                    writeln(st);

                    st:=”;

              end;

        readln;

   end.

         

   Bình luận

2. Program xau;

   Var s:string;

   i:integer;

   Begin 

   Writeln(‘nhap xau’);readln(s);

   For i:=1 to length(S) do begin writeln(S[i]); writeln; end;

   readln;

   end.

   Bình luận