Nhập họ tên và in ra màn hình họ (kiểu xâu)

0 bình luận về “Nhập họ tên và in ra màn hình họ (kiểu xâu)”

1. program ho_trongxau;

   uses crt;

   var s:string;

         i:byte;

   begin

          clrscr;

          write(‘Nhap ho va ten: ‘);  readln(s);       

          i:=1;

          while s[i]<>’ ‘ do

                 begin

                        write(s[i]);

                        i:=i+1;

                 end;

          readln;

   end.

          

   Bình luận

2. var s, ho: string[50];

         i: byte;

   Begin

       Write(‘nhap ho ten: ‘); readln(s);

       For i:=2 to length(s) do if s[i]=’ ‘ then

          Begin

               ho:=copy(s, 1, i-1);

               Break;

          End;

      Write(‘ho: ‘, ho);

   End.

   Bình luận