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
2 câu trả lời
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.
