Viet pt xac nhap xau s
viet chuong trinh nhap vao 1 xau Sva 1 ki tu bat ki tu ban phim . kiem tra trong xau vua nhap co bao nhiweu ki tu vua nhap , xoa tat ca ki tu do trong xau S.
MONG MOI NGUOI GIUP DO ;
uses crt;
var s:string;
ktu:char;
i,d,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(s);
write('Nhap ki tu:'); readln(ktu);
d:=length(s);
dem:=0;
for i:=1 to d do
if s[i]=ktu then inc(dem);
writeln('So ki tu ',ktu,' trong xau ',s,' la: ',dem);
for i:=1 to d do
if s[i]=ktu then delete(s,i,1);
writeln('Xau sau khi xoa cac ki tu ',ktu,' la: ',s);
readln;
end.
1) Viet chuong trinh nhap xau S1, tao xau S2 gom tat ca cac chu so cua xau S1
#include <bits/stdc++.h>
using namespace std;
string s1;
int d,i;
int main()
{
getline(cin,s1);
d=s1.length();
for (i=0; i<=d-1; i++)
if ((s1[i]>=48) and (s1[i]<=57)) cout<<s1[i];
return 0;
}
1) Viet chuong trinh nhap xau S1, tao xau S2 bao gom tat ca cac ki tu da xoa het chu so trong xau S1
#include <bits/stdc++.h>
using namespace std;
string s1;
int d,i;
int main()
{
getline(cin,s1);
d=s1.length();
for (i=0; i<=d-1; i++)
if ((s1[i]<48) or (s1[i]>57)) cout<<s1[i];
return 0;
}
Viet chuong trinh nhap vao xau ki tu từ Số sang chữ
GIúp mik vs !!!!!!!!!!!!!!
Bạn chỉ cần đổi bằng hàm chr
giup minh giai bai toan nay
lap chuong trinh nhap xau s dem xem trong xau do co bao nhieu so hoan thien. thong bao ket qua ra man hinh
xac dinh INPUT , OUTPUT va mo ta thuat toan roi viet choung trinh
Nhap vao 1 so tu nhien vao may tinh va in ra man hinh ket qua so da nhap la so chan hay so le
B1 nhập số nguyên n từ bàn phím và đưa ra thông báo n là số âm hay số dương
B2 nhập vào 3 số nguyên a b c bất kì từ bàn phím và đưa ra kết quả tính tổng của 3 số đó và phép chia tổng a và b cho C
còn cái dưới mình chịu
xac dinh INPUT , OUTPUT mo ta thuat toan roi viet chuong trinh
Nhap vao hai so nguyen bat ki , in ra man hinh thuong cua 2 so do
Ai sửa giúp mình với type Myaray=array [0..9] of Integer; var i:Myaray;
s:String;
a,b:Integer;
begin
Write('nhap xau: ');
readln(s);
a:=0;
for b:=1 to length(s) do
while pos(i,s)<>0 do begin a:=a+1;
Write(a);
end;
while pos(i,s)=0 do write(a);
readln
end.
Viet chương trình pascal , nhap vào xâu s, thay thế kí tư 't' thành kí tự 'b'
uses crt;
var s:string;
i,d:integer;
begin
clrscr;
readln(s);
d:=length(s);
for i:=1 to d do
if (s[i]='t') s[i]:='b'
cout<<s;
return 0;