Viết chữ hoa S
Những câu hỏi liên quan
Cho trước một xâu S dài không quá 255 ký tự bao gồm chữ cái hoa, chữ cái thưởng và chữ số.
Yêu cầu hãy viết chương trình để tinh trong xâu S có bao nhiều chữ cái hoa khác
nhau, chữ cái thưởng khác nhau và bao nhiêu chữ số khác nhau? Input: tập XAU.INP chứa xâu S được ghi trên một dòng.
Output: ghi vào tệp XAUOUT gồm 3 số nguyên trên một dòng (cách nhau bởi dấu cách) có thứ tự tương ứng; số chữ cái hoa khác nhau, số chữ cái thường khác nhau và số chữ số khác nhau. Ví dụ:Xau.Input:raswHrrrasde1...
Đọc tiếp
Cho trước một xâu S dài không quá 255 ký tự bao gồm chữ cái hoa, chữ cái thưởng và chữ số. Yêu cầu hãy viết chương trình để tinh trong xâu S có bao nhiều chữ cái hoa khác nhau, chữ cái thưởng khác nhau và bao nhiêu chữ số khác nhau? Input: tập XAU.INP chứa xâu S được ghi trên một dòng. Output: ghi vào tệp XAUOUT gồm 3 số nguyên trên một dòng (cách nhau bởi dấu cách) có thứ tự tương ứng; số chữ cái hoa khác nhau, số chữ cái thường khác nhau và số chữ số khác nhau. Ví dụ:Xau.Input:raswHrrrasde123A/Xau.Out:2 6 3 (pascal nhé mn!!)
Viết chương trình nhập xấu S. Đưa ra số kí tự chữ cái trong xâu (bao gồm cả chữ hoa và chữ thường)
uses crt;
var s:string;
dem,i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
d:=length(s);
dem:=0;
for i:=1 to d do
if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình nhập từ bàn phím 1 xâu kí tự S đếm số lượng kí tự B trong xâu S ( không phân biệt chữ hoa và chữ thường)
Program HOC24;
var s: string;
i,d: byte;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if (s[i]='b') or (s[i]='B') then d:=d+1;
write('Co ',d,' ki tu B trong xau');
readln
end.
Đúng 1
Bình luận (1)
Viết chương trình đưa ra xâu S với các ký tự chữ cái trong xâu đã được chuyển thành chữ cái in hoa
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.
Đúng 4
Bình luận (0)
Viết chương trình đếm số lượng mỗi chữ cái có trong xâu s . Giả sử xâu s đc nhập là các kí tự in hoa
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
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 từ bàn phím một xâu ký tự S. Xuất xâu đã nhập. Thông báo ra màn hình số lần xuất hiện của mỗi chữ cái tiếng Anh trong S (không phân biệt chữ hoa chữ thường )
Xem chi tiết
uses crt;
var st,s:string;
i,d,dem,kt,j,dem1:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
writeln('Xau vua nhap la: ',s);
d:=length(s);
for i:=1 to d do
if s[i]=#32 then delete(s,i,1);
dem:=1;
st[1]:=s[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if s[i]=st[j] then kt:=1;
if kt=0 then
begin
inc(dem);
st[dem]:=s[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to d do
if st[i]=s[j] then inc(dem1);
writeln(st[i],' xuat hien ',dem1,' lan');
end;
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình nhập vào xâu S sau đó chuyển các kí tự trong xâu thành chữ in hoa
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.
Đúng 0
Bình luận (0)
Bạn Hoa đánh số trang sách bằng các số tự nhiên từ 1 đến 998 Hỏi bạn Hoa đã viết bao nhiêu chữ số
- Từ 1 đến 9 dừng 9 chữ số
- Từ 10 đến 99 dùng: \(\left(99-10+1\right)\cdot2=180\) chữ số
- Từ 100 đến 998 dùng: \(\left(998-100+1\right)\cdot3=2697\)
Vậy tổng cộng cần dùng:
9 + 180 + 2697 = 2886 chữ số
Đúng 0
Bình luận (0)
Từ 1 -> 9 có 9 số , mỗi số có 1 chữ số
Từ 10 -> 99 có số các số hạng có 2 chữ số là : ( 99 - 10 ) : 1 + 1 = 90 ( số )
90 số có 2 chữ số thì cần số các chữ số là : 90 x 2 = 180 ( chữ số )
Từ 100 -> 999 có số các số có 3 chữ số là : ( 998 - 100 ) : 1 + 1 = 899 (số)
.......... ( Tự làm tiếp nha , tương tự đó )
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím xâu kí tự S ( tối đa 100 ký tự ). Hãy tạo và xuất ra màn hình xâu S tổng là chữ in hoa. Ví dụ S='tran van kiet' xuất ra S='TRAN VAN KIẾT.
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.
Đúng 0
Bình luận (0)