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.
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.
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;
}
#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;
}
câu 1 Uses Crt;
Var St:String;
dem: Array[‘A’..’Z’] Of Byte
; i:Byte;
ch:Char;
Begin Write(‘Nhap xau St: ‘);
Readln(St);
{Khởi tạo mảng} For ch:=’A’ To ‘Z’ Do dem[ch]:=0;
{Duyệt xâu} For i:=1 To Length(St) Do If Upcase(St[i]) IN [‘A’..’Z’] Then Inc(dem[Upcase(St[i])]);
{Liệt kê các ký tự ra màn hình} For ch:=’A’ To ‘Z’ Do If dem[ch]>0 Then Writeln(ch,’ : ’,dem[ch]);
Readln;
#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
#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;
}