Viết chương trình nhập vào 1 xâu từ bàn phím a ) Điền kí tự trong xâu b) Đổi xâu thành xâu mhoa
2 câu trả lời
uses crt;
var str:string;
begin
clrscr;
readln(str);
writeln(length(str));
write(upcase(str));
readln;
end.
uses crt;
var st : string;
i : integer;
begin clrscr;
write('Nhap xau :'); readln(st);
writeln('Ki tu co trong xau la :', length(st));
for i:=1 to length(st) do st[i]:=upcase(st[i]);
writeln(st);
readln
end.
Câu hỏi trong lớp
Xem thêm
