Viết chương trình nhập từ bàn tay xâu kí tự S( độ dài k quá 100) tính và in ra màn hình số luôn kí tự trắng có trong xâu S
Những câu hỏi liên quan
Viết chương trình nhập vào từ bàn phím 1 xâu S. Xuất ra màn hình: -Xâu S vừa nhập -Cho biết xâu đó có độ dài là bao nhiêu -Trong xâu có bao nhiêu kí tự là khoảng trắng -Trong xâu có bao nhiêu từ
Viết chương trình nhập từ bàn phím một xâu kí tự S có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ số xuất hiện trong xâu S. Thông báo kết quả ra màn hình ( Trên NNLT Python).
Viết chương trình nhập từ bàn phím một xâu kí tự st1 có độ dài 50 1- đếm số kí tự “N” và “n” trong xâu st1 2- đưa ra màn hình xâu st2 gồm tất cả kí tự in hoa trong xâu st1 3-đưa ra màn hình xâu st1 viết theo chiều ngược lạ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à 50 1- Đếm số kí tự “N” và “n” trong xâu st1 2- Đưa ra màn hình xâu st2 gồm tất cả kí tự in hoatrong xâu st1 3- Đưa ra màn hình xâu st1 viết theo chiều ngược lại Giúp mik với ạ
program stringManipulation;
var
st1, st2: string;
countN, i: integer;
begin
write('Nhap vao xau ki tu st1: ');
readln(st1);
countN := 0;
for i := 1 to length(st1) do
begin
if (st1[i] = 'N') or (st1[i] = 'n') then
begin
countN := countN + 1;
end;
end;
writeln('So ky tu N va n trong xau st1 la: ', countN);
st2 := ''
for i := 1 to length(st1) do
begin
if (st1[i] >= 'A') and (st1[i] <= 'Z') then
begin
st2 := st2 + st1[i];
end;
end;
writeln('Cac ky tu in hoa trong xau st1 la: ', st2);
write('Xau st1 viet theo chieu nguoc lai la: ');
for i := length(st1) downto 1 do
begin
write(st1[i]);
end;
readln;
end.
Đúng 2
Bình luận (2)
st1 = input("Nhập vào xâu kí tự: ")
count_n = 0
st2 = ""
for char in st1:
if char == 'N' or char == 'n':
count_n += 1
if char.isupper():
st2 += char
print("Số lần xuất hiện của kí tự 'N' và 'n' là:", count_n)
print("Xâu kí tự chỉ chứa kí tự in hoa là:", st2)
print("Xâu kí tự đảo ngược là:", st1[::-1])
Đúng 1
Bình luận (3)
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)
Viết chương trình nhập từ bàn phím xâu kí tự ST có độ dài không quá 100 và 1 kí tự CH .Hãy thông báo ra màng hình số lần xuất hiện kí tự CH có trong xâu ST
uses crt;
var st:string;
i,d,dem:integer;
ch:char;
begin
clrscr;
write('Nhap xau:'); readln(st);
write('Nhap ki tu:'); readln(ch);
d:=length(st);
dem:=0;
while pos(ch,st)>0 do
begin
inc(dem);
delete(st,pos(ch,st),1);
end;
writeln(dem);
readln;
end.
Đú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 con độ dài ko quá 255 kí tự. Đưvra nàn hình xâu gồm 5 kí tự của xâu s
viết chương trình nhập vào từ bàn phím xâu ký tự S . tính và đưa ra màn hình số lượng kí tự trog xâu
uses crt;
var st:string;
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(length(st));
readln;
end.
Đúng 0
Bình luận (0)
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(100) .tính và đưa ra màn hình Xâu đó sau khi xoá sốTrong xâu có bao nhiêu dấu cáchĐưa ra màn hình độ dài xâu đóCâu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Đọc tiếp
Câu1: viết chương trình nhập từ bàn phím bất kì kí tự(<=100) .tính và đưa ra màn hình
Xâu đó sau khi xoá số
Trong xâu có bao nhiêu dấu cách
Đưa ra màn hình độ dài xâu đó
Câu 2: Viết CT gồm 2 xâu bất kì. Hãy ghi vào trong tệp kq.out xâu có độ dài lớn hơn, TH 2 xâu bằng nhau thì ghi xâu nhập trước.
Câu 3: viết chương trình nhập vào từ bàn phím các số nguyên (<=100) . Tính và đưa ra màn hình trung bình cộng các số chẵn ?
Câu 1:
uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
write('Xau sau khi xoa so la: ');
for i:=1 to d do
if not(st[i] in ['0'..'9']) then write(st[i]);
writeln;
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln('Xau co ',dem,' dau cach');
writeln('Do dai cua xau la: ',d);
readln;
end.
Đúng 2
Bình luận (1)
Câu 2:
uses crt;
const fi='kq.out'
var st1,st2:string;
f1:text;
begin
clrscr;
write('Nhap xau thu 1:'); readln(st1);
write('Nhap xau thu 2:'); readln(st2);
assign(f1,fi); rewrite(f1);
if length(st2)>length(st1) then writeln(f1,st2)
else writeln(f1,st1);
close(f1);
end.
Đúng 1
Bình luận (0)
Câu 3:
uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('Trung binh cong cac so chan la: ',t/dem:4:2);
readln;
end.
Đúng 1
Bình luận (0)