nhập vào 1 xâu.nếu độ dài của xâu là chẵn thì chuyển cả xâu đó thành chữ in hoa, ngược lại đưa ra độ dài
2 câu trả lời
program do_dai;
uses crt;
var s:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
if length(s) mod 2=0 then
begin
for i:=1 to length(s) do
s[i]:=upcase(s[i]);
write(s);
end
else write('Do dai cua xau la: ',length(s));
readln;
end.
uses crt;
var n:string;
Begin
clrscr;
write('Nhap xau: ');
readln(n);
if length(n) mod 2 = 0 then
Begin
n:=Upcase(n);
write(n);
end else write('Do dai xau la: ',length(n));
readln;
end.
