Viết chương trình nhập từ bàn phím 1 sâu kí tự (gồm cả chữ và số). Đưa ra màn hình - Xâu đảo ngược - Xâu có chữ cái đầu viết hoa và đưa ra màn hình
2 câu trả lời
program oken;
uses crt;
var s: string;
i: byte;
begin
clrscr;
write('Nhap 1 xau bat ky: '); readln(s);
write('Xau dao nguoc: ');
for i:=length(s) downto 1 do
write(s[i]);
writeln;
s[1]:=upcase(s[1]);
writeln('Xau moi: ',s);
readln;
end.
Var i:integer;
S: string;
Begin
Readln(S);
For i:= length(S) downto 1 do
Write(S[i]);
For i:=1 to n do
If S[i] in ['a'..'z'] then S[i]:= upcase(S[i]);
Writeln;
Write(S);
End.
Câu hỏi trong lớp
Xem thêm
