viết chương trình nhâp vào hai xâu,in ra xâu tổng của hai xâu đó,đếm và in ra số kí tự của xâu tổng.
Những câu hỏi liên quan
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là dấu cách có trong xâu.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If a[i] =’ ‘ then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Đúng 0
Bình luận (0)
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Hãy viết chương trình nhập vào xâu s chứa họ tên của một người. In ra màn hình số lượng kí tự a có trong xâu. Và in ra xâu đó khi đã chuyển tất cả kí tự trong xâu thành chữ HOA
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ thường) có trong xâu.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘a’<=a[i]) and (a[i]<=’z’)
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình:
Nhập vào một xâu kí tự.
Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa) có trong xâu.
Var a: string;
i, Dem: integer;
Begin
writeln(‘nhap xau:’);
Readln(a);
Dem:=0;
For i:=1 to length(a) do
If (‘A’<=a[i]) and (a[i]<=’Z’) then
Dem:= Dem+1;
Writeln(Dem);
Readln
End.
Đúng 0
Bình luận (0)
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
Viết chương trình: Nhập vào một xâu kí tự. Đếm và in ra màn hình số kí tự là chữ cái (chữ hoa và chữ thường) có trong xâu.
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);
writeln(dem);
readln;
end.
Đúng 1
Bình luận (0)
1.Viết chương trình nhập vào 1 xâu (s1) và in ra màn hình xâu đã nhập.
+ nhập vào xâu thứ 2 và in ra màn hình xâu dài hơn( nếu bằng nhau thì in ra xâu nhập sau)
+kiểm tra kí tự đầu tiên trong xâu S1 có trùng với kí tự cuối cùng của xâu S2 khong?
+in ra màn hình xâu đảo ngược của xâu S1
+in ra xâu S1 khi đã loại bỏ kí tự trắng ( nếu có)
+in ra xâu chỉ có kí tự là chữ cái xuất hiện trong xâu S2( không phân biệt chữ hoa, thường)
+đếm xem có bao nhiêu chữ số trong xâu S2.
Ét o ét mọi người ơi
Đọc tiếp
1.Viết chương trình nhập vào 1 xâu (s1) và in ra màn hình xâu đã nhập. + nhập vào xâu thứ 2 và in ra màn hình xâu dài hơn( nếu bằng nhau thì in ra xâu nhập sau) +kiểm tra kí tự đầu tiên trong xâu S1 có trùng với kí tự cuối cùng của xâu S2 khong? +in ra màn hình xâu đảo ngược của xâu S1 +in ra xâu S1 khi đã loại bỏ kí tự trắng ( nếu có) +in ra xâu chỉ có kí tự là chữ cái xuất hiện trong xâu S2( không phân biệt chữ hoa, thường) +đếm xem có bao nhiêu chữ số trong xâu S2. Ét o ét mọi người ơi
Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài tối đa là 60 1- Đếm số kí tự “A” và “a” trong xâu st1 2- Đưa ra màn hình xâu st2 gồm tất cả kí tự in thường trong xâu st1 3- Đưa ra màn hình xâu st1 là xâu in hoa Mng oiiiiiiiiiiiiiiiiiiiiiiii
Program HOC24;
var i,d1,d2: byte;
st1,st2: string[60];
begin
write('Nhap xau st1: '); readln(st1);
//---------------Câu 1-------------------
d1:=0; d2:=0;
for i:=1 to length(st1) do
begin
if st1[i]='A' then d1:=d1+1;
if st1[i]='a' then d2:=d2+1;
end;
writeln('Co ',d1,' ki tu A trong xau');
writeln('Co ',d2,' ki tu a trong xau');
//---------------------- Câu 2 --------------------
st2:=''
for i:=1 to length(st1) do if st1[i] in ['a'..'z'] then st2:=st2+st1[i];
writeln('Xau st2 la: ',st2);
//------------------------------Câu 3--------------------
for i:=1 to length(st1) do st1[i]:=upcase(st1[i]);
write('Xau st1 sau khi in hoa la: ',st1);
//--------------------------------------------------------
readln
end.
Đúng 2
Bình luận (1)