Nhập vào 1 xâu .Đưa ra màn hình ký tự đầu tiên của xâu đó
2 câu trả lời
program kitu_dau;
Uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(S);
write(s[1]);
readln;
end.
program kitu_dau;
Uses crt;
var s:string;
begin
clrscr;
write('Nhap xau: '); readln(S);
write(s[1]);
readln;
end.