pas cau 26
var
st:string;
i:byte;
begin
write('nhapxaust:');
readln(st);
for i:=1 to length (st) do
if st[i] in ['a'..'z'] then
st[i] := upcase(st[i]);
write('xauketqua:',st);
readln;
end.
Bạn đang đọc truyện trên: Truyen3h.Co
var
st:string;
i:byte;
begin
write('nhapxaust:');
readln(st);
for i:=1 to length (st) do
if st[i] in ['a'..'z'] then
st[i] := upcase(st[i]);
write('xauketqua:',st);
readln;
end.
Bạn đang đọc truyện trên: Truyen3h.Co