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.
#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; i++)
if (('0'<=st[i]) and (st[i]<='9')) cout<<st[i];
return 0;
}
#include <bits/stdc++.h>
using namespace std;
string st,st1,st2;
int d,i;
int main()
{
getline(cin,st);
d=st.length();
st1="";
st2="";
for (i=0; i<=d-1; i++)
{
if (48<=st[i] && st[i]<=57) st1+=st[i];
else st2+=st[i];
}
cout<<st1<<st2;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setpricision(2)<<1/(a+b)<<endl;
return 0;
}
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[1000];
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
uses crt;
var a,t,dem:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('Nhap a='); readln(a);
if (a mod 2=0) and (a mod 3=0) then
begin
t:=t+a;
dem:=dem+1;
end;
until a=0;
writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);
readln;
end.
2:
uses crt;
var st:string;
d,i,dem1,dem2:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem1:=0;
dem2:=0;
for i:=1 to d do
begin
if st[i] in ['0'..'9'] then inc(dem1);
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);
end;
writeln('So ki tu la chu so la: ',dem1);
writeln('So ki tu la chu cai la: ',dem2);
for i:=1 to d do
if st[i] in ['0'..'9'] then delete(st,i,1);
writeln('Xau sau khi xoa cac chu so la: ',st);
readln;
end.
program doc_so;
uses crt;
var i,n:longint;
st1,st2:string;
begin
clrscr;
write('nhap n:');readln(n);
str(n,st1);
st2:='';
if length(st1)=6 then
begin
case st1[1] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' tram ';
case st1[2] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[3] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' nghin ';
case st1[4] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' tram ';
case st1[5] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[6] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'lam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
if length(st1)=5 then
begin
case st1[1] of
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[2] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' nghin ';
case st1[3] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' tram ';
case st1[4] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[5] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'lam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
if length(st1)=4 then
begin
case st1[1] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' nghin ';
case st1[2] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' tram ';
case st1[3] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[4] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'lam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
if length(st1)=3 then
begin
case st1[1] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' tram ';
case st1[2] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[3] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'lam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
if length(st1)=2 then
begin
case st1[1] of
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
st2:=st2+' muoi ';
case st1[2] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'lam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
if length(st1)=1 then
begin
case st1[1] of
'1':st2:=st2+'mot';
'2':st2:=st2+'hai';
'3':st2:=st2+'ba';
'4':st2:=st2+'bon';
'5':st2:=st2+'nam';
'6':st2:=st2+'sau';
'7':st2:=st2+'bay';
'8':st2:=st2+'tam';
'9':st2:=st2+'chin';
end;
writeln(st2);
end;
readln;
end.