Viết chương trình nhập vào 1 xâu đưa ra kí tự thứ 3 của xâu đó
2 câu trả lời
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.
uses crt;
var s:string;
begin
clrscr;
write('s=');readln(s);
writeln('Ki tu thu 3: ',s[3]);
readln;
end.
