Viết chương trình vào họ tên và tên của người viết In ra màn hình tên người đó Vd: ‘Nguyen Van An’ –> ‘An’ Mn giúp mình với

0 bình luận về “Viết chương trình vào họ tên và tên của người viết In ra màn hình tên người đó Vd: ‘Nguyen Van An’ –> ‘An’ Mn giúp mình với”

1. Program Tao_Xau_Ho_Ten;
   Var HT, H, T :String;
   VT,SL, i : Byte;
   Begin
   Write(‘Nhap Ho va Ten 1 nguoi :’); Readln(HT);
   i:=1; SL:=0;
   While HT[i]<>’ ‘ do
   Begin
   SL:=SL+1;
   i:=i+1;
   End;
   H:=Copy(HT,1,SL);
   i:=Length(HT); SL:=0;
   While HT[i]<>’ ‘ do
   Begin
   SL:=SL+1;
   i:=i -1;
   End;
   VT:=Length(HT) – SL +1;
   T := Copy(HT,VT,SL);
   Writeln(‘Ho la :’,H);
   Writeln(‘Ten la :,T);
   Readln.

   Bình luận