viết chương trình nhập vàp xâu họ tên. em hãy tách họ trong xâu họ tên vừa nhập

0 bình luận về “viết chương trình nhập vàp xâu họ tên. em hãy tách họ trong xâu họ tên vừa nhập”

1. uses crt;
   var s:string;
   begin
   clrscr;
      write(‘Nhap xau ho ten: ‘);readln(s);
      write(‘Xau ho: ‘,copy(s,1,pos(‘ ‘,s)-1));
   readln
   end.

   Bình luận

2. program ho_trongxau;

   uses crt;

   var s,st:string;

          i:byte;

   begin

   clrscr;

   write(‘Nhap ho ten: ‘);    readln(s);

   i:=1;  st:=”;

   while s[i]<>’ ‘ do

    begin

     st:=st+s[i];

     i:=i+1;

    end;

   write(‘Ho trong xau ho ten la: ‘,st);

   readln

   end.

   Bình luận