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 đó.

Question

aivilan · Answer

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.

0 bình luận về “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 đó.”