Tin học Viết chương trình nhập vào 1 xâu đưa ra kí tự thứ 3 của xâu đó 23/07/2021 By Harper Viết chương trình nhập vào 1 xâu đưa ra kí tự thứ 3 của xâu đó
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. Trả lời
uses crt;var s:string;beginclrscr; write(‘s=’);readln(s); writeln(‘Ki tu thu 3: ‘,s[3]);readln;end. Trả lời