Viết chương trình nhập vào 1 xâu bất kỳ. Hãy chuẩn hóa xâu đó theo quy tắc sau:
– Viết hoa kí tự là chữ ở đầu xâu và kí tự đầu tiên là chữ sau dấu chấm.
Giúp mình với ạ. Hứa sẽ vote 5* và ctlhn ạ nếu đúng ạ
Viết chương trình nhập vào 1 xâu bất kỳ. Hãy chuẩn hóa xâu đó theo quy tắc sau:
– Viết hoa kí tự là chữ ở đầu xâu và kí tự đầu tiên là chữ sau dấu chấm.
Giúp mình với ạ. Hứa sẽ vote 5* và ctlhn ạ nếu đúng ạ
var s:ansistring;
o,i:longint;
begin
readln(s);
for i:=1 to length(s) do
if (s[i]in[‘a’..’z’])and(o<>1) then
begin
write(upcase(s[i]));
o:=1;
end
else write(s[i]);
end.