1. Nhập vào một xâu, biến đổi xâu đó thành chữ hoa

Gợi ý:

• Nhập xâu

• Duyệt các tất cả các phần tử của xâu • In ra xâu chữ hoa: write(upcase(S[i]));

2. Nhập vào 1 xâu, in ra chuỗi ngược

Gợi ý:

• Nhập xâu

• Duyệt các tất cả các phần tử của xâu theo vòng for ngược:

For i:=length(S) downto 1 do

• In xâu

1)

uses crt;
var s: string;
begin
clrscr;
    readln(s);
    writeln(upcase(s));
readln;
end.

2)

uses crt;
var s: string;
    i: longint;
begin
clrscr;
    readln(s);
    for i:=length(s) downto 1 do write(s[i]);
readln;
end.

1. Nhập vào một xâu, biến đổi xâu đó thành chữ hoa;

uses crt;
var s:string;
begin
 clrscr;
  write('nhap xau s:');readln(s);
  write(upcase(s));
 readln;
end.

2. Nhập vào 1 xâu, in ra chuỗi ngược;

uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau s:');readln(s);
  for i:=length(s) downto 1 do write(s[i]);
 readln;
end.