Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
uses crt;
var st:string;
i,d,dem,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
dem1:=0;
for i:=1 to d do
begin
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
if st[i] in ['0'..'9'] then inc(dem1);
end;
writeln('So chu cai trong xau la: ',dem);
writeln('So chu so trong xau la: ',dem1);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln('Xau sau khi in hoa la: ',st);
readln;
end.
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
write('Nhap xau S:'); readln(s);
d:=length(s);
for i:=1 to d do
s[i]:=upcase(s[i]);
writeln(s);
readln;
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
writeln('Xau vua nhap la: ',st);
for i:=1 to d do
if st[i] in ['a'..'z'] then upcase(st[i]);
writeln(st);
readln;
end.
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if (st[i]='a') or (st[i]='A') then st[i]:='b';
writeln(st);
readln;
end.
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau: '); readln(s);
for i:=1 to length(s) do if (s[i]<>#32) and (s[i] in 'A'..'z') then
begin
upcase(s[i]); write(s[i]);
end;
readln
end.
program VTC:
uses crt;
Begin
clrscr;
Writeln(' THPT Hoang Hoa Tham' );
readln;
end.
Bạn ơi đọc lại đề giúp mình với
PROGRAM HOC24;
var st,s: string;
begin
st:='______THPT_____Hoang____Hoa____Tham____’;
for i:=1 to length(st) do if not(st[i] in ['A'..'z']) then st[i]:=#32;
while st[1]=#32 do delete(st,1,1);
while st[length(st)]=#32 do delete(st,length(st),1);
while pos(#32#32,st)<>0 do delete(st,pos(#32#32,st),1);
write(st);
readln
end.