hãy tạo ra một xâu mới được copy từ họ trong xâu họ tên vừa nhập .In kết quả ra màn hình (help me)
2 câu trả lời
Program BT;
uses crt;
var xau:string;
i,j:longint;
begin
clrscr;
write ('Nhap Ho va Ten : ');
readln (xau);
Write ('Ho la : ');
for i := 1 to length (xau) do if xau[i] = ' ' then
Begin
for j := 1 to i do Write (xau[j]);
break;
end;
end.
program ho_hoten;
uses crt;
var ht,h:string;
i:byte;
begin
clrscr;
write('Nhap ho va ten: '); readln(ht);
h:=''; i:=1;
while ht[i]<>' ' do
begin
h:=h+ht[i];
i:=i+1;
end;
write('Ho la: ',h);
readln;
end.
