hãy tạo ra một xâu mới được copy từ họ trong xâu họ tên vừa nhập .In kết quả ra màn hình (help me)

0 bình luận về “hãy tạo ra một xâu mới được copy từ họ trong xâu họ tên vừa nhập .In kết quả ra màn hình (help me)”

1. program ho_hoten;

   uses crt;

   var ht,h:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap ho va ten: ‘);   readln(ht);

          h:=”;  i:=1;

          while ht[i]<>’ ‘ do

                 begin

                        h:=h+ht[i];

                        i:=i+1;

                 end;

          write(‘Ho la: ‘,h);

          readln;

   end.

   Bình luận

2. Program BT;
   uses crt;
   var xau:string;
       i,j:longint;
   begin 
   clrscr;
   write (‘Nhap Ho va Ten : ‘);
   readln (xau);
   Write (‘Ho la : ‘);
   for i := 1 to length (xau) do if xau[i] = ‘ ‘ then 
   Begin
   for j := 1 to i do Write (xau[j]);
   break;
   end;
   end. 

   Bình luận