1. Viết chương trình nhập vào từ bàn phím một xâu bất kì có ít nhất 25 kí tự . Xuất ra màn hình 3 kí tự đầu tiên của xâu. Đổi xâu kí tự sang chữ in hoa rồi in kết quả ra màn hình.
2 câu trả lời
var s: string;
i: integer;
begin
clrscr;
write('Nhap xau s = '); readln(s);
write('3 ki tu dau tien cua xau la: ');
for i:=1 to 3 do write(s[i]:2);
writeln();
write('Chuyen sang chu in hoa la: ', upcase(s));
readln
end.
program phuongt;
uses crt;
var s: string;
i: integer;
begin
clrscr;
write('Nhap xau s = '); readln(s);
write('3 ki tu dau tien cua xau la: ');
for i:=1 to 3 do write(s[i]:2);
writeln();
write('Chuyen sang chu in hoa la: ', upcase(s));
readln
end.
