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.
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 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).
giúp em với sáng mai em thi rồi..
1.viết chương trình nhập vào một xâu kí tự từ bàn phím. in ra màn hình xâu kí tự sau khi đã thay các từ "nang" thành "mua".
2. viết chương trình vào một xâu kí tự từ bàn phím .kiểm tra xem xâu đó có phải là xâu palindrom không? ( Xâu palindrom là xâu khi viết từ trái qua phải cũng giống như từ phải qua trái, VD: Xâu 'ABBA' là một xâu palindrom).
giúp em với ạ em rất cần gấp
Bài 1:
uses crt;
var S:String;
vt:integer;
begin
clrscr;
Write(‘Nhap 1 xau:’); Readln(S);
While pos(‘nang’,s)>0 do
Begin
Vt:= pos(‘nang’,s);
Delete(s,vt,4);
Insert(‘mua’,s ,vt);
End;
Writeln(‘Xau sau khi thay the ’,s);
Readln;
End.
Bài 2:
uses crt;
var st:string;
d,i,kt:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
kt:=0;
for i:=1 to d do
if st[i]<>st[d-i+1] then kt:=1;
if kt=0 then writeln(st,' la xau doi xung')
else writeln(st,' khong la xau doi xung');
readln;
end.
Viết chương trình nhập xâu bất kì từ bàn phím. Đếm các kí tự số trong xâu vừa nhập
Program HOC24;
var i,d: byte;
s: string;
begin
write('Nhap xau: '); readln(s);
d:=0;
for i:=1 to length(s) do if s[i] in ['0'..'9'] then d:=d+1;
write('Co ',d,' ki tu so trong xau');
readln
end.
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ừ
câu 1 : viết chương trình để:
-Nhập một dãy các số nguyên gồm N phần tử ( ko quá 60 kí tự);
-Nhập 1 số nguyên K từ bàn phím;
-Thông báo ra màn hình số lượng các phần tử trong dãy bằng K
Câu 2: viết chương trình để :
-Nhập một xâu A ( không quá 130 kí tự ) từ bàn phím ;
-Tạo xâu mới B gồm các kí tự trong xâu A nhưng không có kí tự đầu và cuối ;
- In kết quả các xâu trên ra màn hình .
mọi người giúp em với ạ . em đang cần gấp ạ
Câu 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,k,dem,x;
int main()
{
cin>>n;
cin>>k;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x==k) dem++;
}
cout<<dem;
return 0;
}
Viết chương trình nhập vào xâu S.a, Xoá hết kí tự là chữ trong xâu.b, đếm xem xâu có bao nhiêu nguyên âm. c, đếm số lần xuất hiện của kí tự k đc nhập bào từ bàn phím
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
if (s[i] in ['a'..'z']) or (s[i] in ['A'..'Z']) then delete(s,i,1);
writeln('Xau sau khi xoa het ki tu chu la: ',s);
readln;
end.
a. Viết chương trình nhập vào 1 xâu bất kì xuất ra độ dài cùa xâu và số kí tự trống.
b. Viết chương trình nhập vào một xâu bất kì xuất ra xâu đảo ngược
c.Viết chương trình nhập vào một xâu bất kì xuất ra xâu có là xâu đối xứng hay không đối xứng
d. Viết chương trình nhập vào một xâu bất kì xuất ra xâu viết in hoa tất cả