Em đang gấp ạ😭😭😭😢😢😢 Viết chương trình Pacsal thực hiện các việc sau: Nhập một sâu từ bàn phím.Tạo ra sâu chữ hoa tương ứng vs sâu đã nhập. Viết sâu chữ hoa đã tạo được ra trên màn hình
2 câu trả lời
program in_hoa;
uses crt;
var st:string;
i:byte;
begin
clrscr;
write('Nhap xau: '); readln(st);
for i:=1 to length(st) do
st[i]:=upcase(st[i]);
write(st);
readln;
end.
program oken;
uses crt;
var s: string;
i: byte;
begin
clrscr;
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do
s[i]:= upcase(s[i]);
writeln('Xau in hoa: ',s);
readln;
end.
