viết ct tính tổng và đếm các kí tự trống trong xâu A. Nêu ý tưởng B. Viết ct có giải thích
Những câu hỏi liên quan
viết công thức nhập vào 1 xâu. đếm xem trong xâu vừa nhập có bao nhiêu chữ, bao nhiêu số A nêu ý tưởng B viết ct có giải thích
uses crt;
var st:string;
a:array[1..255]of string;
i,n,d,kt,j,dem,dem1,dem2:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=1;
a[1]:=st[1];
for i:=1 to d do
begin
kt:=0;
for j:=1 to dem do
if a[j]=st[i] then kt:=1;
if kt=0 then
begin
dem:=dem+1;
a[dem]:=st[i];
end;
end;
dem1:=0;
dem2:=0;
for i:=1 to dem do
begin
if st[i] in ['A'..'Z'] then dem1:=dem1+1;
if st[i] in ['a'..'z'] then inc(dem1);
if st[i] in ['0'..'9'] then inc(dem2);
end;
writeln(dem1);
writeln(dem2);
readln;
end.
Đúng 1
Bình luận (0)
Viết CT nhập vào 1 xâu kí tự.Cho biết trong xâu đã nhập có tổng cộng bao nhiêu kí tự a( kể cả a và A)
#include <bits/stdc++.h>
using namespace std;
string st;
int dem,i,d;
int main()
{
getline(cin,st);
d=st.length();
dem=0;
for (i=0; i<=d-1; i++)
if ((st[i]=='a') or (st[i]=='A')) dem++;
cout<<dem;
return 0;
}
Đúng 0
Bình luận (0)
Viết ct nhập vào 1 xâu ký tự, hãy xoá hết các kí tự có trong xâu
chuoi = input("Nhập vào một chuỗi ký tự: ")
kieu_du_lieu_cu = type(chuoi)
kieu_du_lieu_moi = str
# tạo một danh sách chứa tất cả các ký tự xuất hiện trong chuỗi
ky_tu_can_loai_bo = ['a', 'e', 'i', 'o', 'u']
# loại bỏ các ký tự nằm trong danh sách khỏi chuỗi
chuoi = ''.join([c for c in chuoi if c.lower() not in ky_tu_can_loai_bo])
print("Chuỗi sau khi xóa các ký tự: ", chuoi)
Đúng 1
Bình luận (0)
viết ct nhập 1 xâu vào từ bàn phím hãy cho biết trong xâu đó có bao nhiêu kí tự "H" hoa
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]='H' then inc(dem);
writeln(dem);
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)
Viết phương trình nhập vào 1 xâu kí tự , và đếm số lượng kí tự 'A' có trong xâu .
program ki_tu;
uses crt;
var s: string;
d,i,n: integer;
begin
clrscr;
write('nhap xau s: ');readln(s);
n:= length(s);
s:=upcase(s);
write('xau s sau khi duoc in hoa la: ');
writeln(s);
d:=0;
for i:= 1 to n do
if s[i] = 'A' then d:= d+1 ;
writeln('chu cai A xuat hien ',d,' lan');
readln
end.
Đúng 1
Bình luận (0)
Uses crt;
Var st:string;
D,i,dem:integer;
Begin
Clrscr;
Write('nhap xau:'); readln(st);
D:=length(st);
Dem:=0;
For i:=1 to d do
If st[i]='A' then inc(dem);
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
Bài 6: Viết CT thực hiện các yêu cầu sau:
- Đọc vào một xâu kí tự.
- Sắp xếp lại xâu này sao cho kí tự thứ 1 đổi chỗ cho kí tự thứ
n, kí tự thứ 3 đổi chỗ cho kí tự thứ n-2,… kí tự ở vị trí chẵn
không đổi.
- Đưa xâu đã sắp xếp ra màn hình.
#include <bits/stdc++.h>
using namespace std;
string st;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
for (i=0; i<=d-1; i++) swap(st[i],st[n-1-(i-1)]);
cout<<st;
return 0;
}
Đúng 0
Bình luận (0)
B1:Nhập vào bàn phím 1 xâu thay thế tất cả các cụm kí tự ('bông' thay bằng 'hoa').
B2: Nhập vào mảng a gồm n phần tử (n<100) số nguyên có giá trị tuyệt đối ko lớn hơn 100 .Hãy cho pk các phần tử của mảng này có lập thành 1 cấp số cộng được ko.
B3:Viết ct nhập vào một xâu và in ra màn hình số kí tự khác nhau trong xâu đó
Ai giải giùm e đúng e tick cho
Viết CT nhập vào 1 sâu,đếm số lượng kí tự là chữ số trong sâu