Question

nhập vào một xâu gồm các chữ số

1.đổi tất cả các kí tự sang chữ hoa

2.in ra xâu đảo nguocj của xâu đó

3.đếm và dưa ra màn hình số lượng đưa ra trong xâu

Answer 1

Lời giải :

program hotrotinhoc;

var s: string;

i,n,d : integer;

begin

readln(s);

for i:=1 to length(s) do

s[i]:=upcase(s[i]);

for i:=length(s) downto 1 do

writeln(s);

write(length(s));

readln

end.

{ Ở câu 1 đề không yêu cầu in nên mình không write ra , nếu câu 1 in thì bạn chỉ cần write(s); ở dưới vòng for của s[i]:=upcase(s[i]); }