Viết chương trình nhập vào họ tên của một người. Đưa ra màn hình phần tên của người đó.
1 câu trả lời
program tencuahoten;
uses crt;
var ht,t:string;
i:byte;
begin
clrscr;
write('Nhap ho va ten: '); readln(ht);
i:=length(ht); t:='';
while ht[i]<>' ' do
begin
t:=ht[i]+t;
i:=i-1;
end;
write('Ten la: ',t);
readln;
end.
