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. Ví dụ: input: Nguyen Van Sang Out put: 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. Ví dụ: input: Nguyen Van Sang Out put: Phan ho: Nguyen”

1. var s, ho, ten: string;

       i: byte;

   Begin

       Write(‘nhap xau: ‘); readln(s);

       For i:=1 to length(s) do if s[i]=’ ‘ then

           Begin

               Ho:=copy(s, 1, i-1); break;

           End;

       For i:=length(s) downto 1 do if a[i]=’ ‘             then begin

                  Ten:=copy(s, i+1, length(s)-i+1);

            End;

       Writeln(‘phan ho: ‘, ho);

       Writeln(‘phan ten: ‘, ten);

       Readln

   End.

   Bình luận