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 Phan ten: Sang
1 câu trả lời
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.
