K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

12 tháng 12 2021

#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;

}

12 tháng 12 2021

#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;

}

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.

Bạn chỉ cần đổi bằng hàm chr

10 tháng 5 2022

👊👅😎

10 tháng 5 2022

Jhg

uses crt;

var a:array[1..250]of integer;

i,n,t:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

for i:=1 to n do t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

inc(dem);

write(a[i]:4);

end;

writeln;

writeln('So phan tu chia het cho 3 la: ',dem);

readln;

end.