Viết chương trình nhập một chuỗi bất kỳ In ra mỗi từ đó trên một dòng

0 bình luận về “Viết chương trình nhập một chuỗi bất kỳ In ra mỗi từ đó trên một dòng”

1. program pht;
   uses crt;
     var s: string;
           i: integer;
   begin
         clrscr;
         write(‘Nhap chuoi s: ‘); readln(s);
         for i:=1 to length(s) do writeln(s[i]);
         readln
   end.

   Bình luận

2. uses crt;
   var s:string; i:byte;
   begin
   clrscr;
      readln(s);
      for i:=1 to length(s) do writeln(s[i]);
   readln
   end.

   Bình luận