Viết chương trình nhập vào 1 xâu đưa ra kí tự thứ 3 của xâu đó

0 bình luận về “Viết chương trình nhập vào 1 xâu đưa ra kí tự thứ 3 của xâu đó”

1. program kituthu3;

   uses crt;

   var st:string;

   begin

   clrscr;

   write(‘Nhap xau: ‘);   readln(st);

   if length(st)<2 then write(‘Xau khong du do dai de lay ki tu thu 3’)

       else write(‘Ki tu thu 3 cua xau la: ‘,st[3]);

   readln

   end.

   Bình luận

2. uses crt;
   var s:string;
   begin
   clrscr;
       write(‘s=’);readln(s);
       writeln(‘Ki tu thu 3: ‘,s[3]);
   readln;
   end.

   Bình luận