Viết ct nhập vào 1 sâu kí tự và đưa ra các kí tự hoa trong sâu đó
Mn giúp em với ạ
Em cảm ơn
Viết ct nhập vào 1 sâu kí tự và đưa ra các kí tự hoa trong sâu đó Mn giúp em với ạ Em cảm ơn
By Savannah
By Savannah
Viết ct nhập vào 1 sâu kí tự và đưa ra các kí tự hoa trong sâu đó
Mn giúp em với ạ
Em cảm ơn
uses crt;
var s: string;
i: byte;
begin
clrscr;
write (‘nhap xau: ‘); readln (s);
write (‘cac ki tu hoa trong xau: ‘);
for i:=1 to length(s) do
if s[i] in [‘A’..’Z’] then write (s[i],’ ‘);
readln;
end.
program phuongt;
uses crt;
var s: string;
i: integer;
begin
clrscr;
write(‘Nhap xau s = ‘); readln(s);
for i:=1 to length(s) do if s[i] in [‘A’..’Z’] then write(s[i]:3);
readln
end.