Viết chương trình nhập tên 1 xâu. Tách phần tên của xâu vừa nhập
0 bình luận về “Viết chương trình nhập tên 1 xâu. Tách phần tên của xâu vừa nhập”
var str,kq:string; i: byte; begin write(‘Nhap chuoi ho ten: ‘); readln(str); i:=length(str); while (i>1) and (str[i]<>’ ‘) do i:=i-1; kq:=copy(str,i,length(str)-i+1); write(‘Ket qua: ‘,kq); readln end.
var str,kq:string; i: byte;
begin
write(‘Nhap chuoi ho ten: ‘);
readln(str);
i:=length(str);
while (i>1) and (str[i]<>’ ‘) do
i:=i-1;
kq:=copy(str,i,length(str)-i+1);
write(‘Ket qua: ‘,kq);
readln
end.