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

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

1. 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.

   Trả lời