Viết chương trình nhập sâu S không quá 255 kí tự, rồi xuất ra màn hình xâu chữ cái in hoa và chữ cái thường
Bài 12: Kiểu xâu
Program HOC24;
var s: string;
i: byte;
begin
write('Nhap xau S: '); readln(s);
write('Cac chu cai in hoa: ');
for i:=1 to length(s) do if s[i] in ['A'..'Z'] then write(s[i],' ');
writeln;
for i:=1 to length(s) do if s[i] in ['a'..'z'] then write(s[i],' ');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào một xâu ký tự từ bàn phím. Tìm và in ra màn hình một từ có độ dài lớn nhất trong xâu. Giúp em code pascal với ạ
giúp em với ạ : 1 xâu (string) 4xab236z( xấu chung). Nhiệm vụ viết code tách xấu chung thành 2 xâu số và chữ
mọi người giúp em câu 1 và 2 tự luận với ạaaaa
Viết chương trình nhập vào 1 sâu bất kỳ và cho biết sâu có bao nhiêu từ ( mỗi từ là 1 dãy các ký tự khác ký tự trắng) Mong mọi người giúp mai em thi học kỳ rồi ạ
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(dem+1);
readln;
end.
Đúng 0
Bình luận (0)
Viết phương trình tạo một xâu a. Đếm có bao nhiêu kí tự có trong xâu b. Đếm có bao nhiêu dấu cách có trong xâu Giúp mình với ạ, mình cảm ơn nhiều
tham khảo
uses crt;
var a:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau a:'); readln(a);
dem:=0;
d:=length(a);
for i:=1 to d do
if a[i]=' ' then inc(dem);
writeln(dem);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình xoá các kí tự là chữ số từ một xâu bất kì được nhập từ bàn phím. In xâu kết quả ra màn hình
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
readln(st);
d:=length(st);
for i:=1 to d do
if not (st[i] in ['0'..'9']) then write(st[i]);
readln;
end.
Đúng 0
Bình luận (0)
vViết chương trình nhập vào một xâu ký tự sau đó đếm xem trong xâu có bao nhiêu ký tự "a"
Var st:string;
i,dem:integer;
Begin
Write('Nhap xau ky tu ');readln(st);
For i:=1 to length(st) do
If st[i] = 'a' then dem:=dem+1;
Write('So ky tu a co trong xau la ',dem);
Readln;
End.
Đúng 0
Bình luận (0)
Cho đoạn chương trình sau: s1:='abcd' s2:='acb'
if length(s1)>length(s2) then write(s2) else write(s1);
Đoạn chương trình trên đưa ra màn hình kết quả nào sau đây:
A. Abcdacb B. Acb C. Abcd D. Acbabcd