Nhập họ tên của một học sinh.in lên màn hình phần họ và phần tên. Vd input: Nguyen Van Sang Output: Phan ho: Nguyen

0 bình luận về “Nhập họ tên của một học sinh.in lên màn hình phần họ và phần tên. Vd input: Nguyen Van Sang Output: Phan ho: Nguyen”

1. var stri: string; i: byte;
   begin
       write(‘Nhap ho va ten hoc sinh: ‘);
       readln(stri);
       writeln(‘Phan ho: ‘,copy(stri,1,pos(‘ ‘,stri)));
       for i:=length(stri) downto pos(‘ ‘,stri) do
           if stri[i]=’ ‘ then 
           begin
               writeln(‘Phan ten: ‘,copy(stri,i+1,length(stri)));
               break;
           end;
       readln
   end.

   Bình luận