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.
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.
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.