VCT: tạo xấu gồm tất cả các chữ số có trong xấu nhập vào từ bàn phím Ví dụ: "ngay 20 tháng 12 năm 2021”>" 122001^ "
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.
Những câu hỏi liên quan
5 tháng 4 2021
Bài 1:
program in_phan_tu;
uses crt;
var n,i:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
for i:=1 to n do
write(a[i]:3);
readln;
end.
Bài 2:
program tong_phan_tu;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
Bài 3:
program tong_phan_tu_chan;
uses crt;
var n,i,tong:longint;
a:array[1..100] of longint;
begin
clrscr;
write('nhap so n:');readln(n);
for i:=1 to n do
begin
write('nhap phan tu a[',i,']:');readln(a[i]);
end;
tong:=0;
for i:=1 to n do
if a[i] mod 2=0 then tong:=tong+a[i];
writeln('tong cua day la:');
readln;
end.
5 tháng 4 2021
Câu 1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
KV
10 tháng 5 2023
Var s,st:string;
i:integer;
Begin
Write('Nhap xau ');readln(s);
For i:=1 to length(s) do
If s[i] in ['0'..'9'] then st:=st+s[i];
Write('Cac ki tu so co trong day la ',st);
Readln
End.
11 tháng 5 2021
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.
16 tháng 12 2022
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;
}
15 tháng 3 2022
1 không
2
Program UCLN;
uses crt;
var a,b : integer;
begin
write ('nhap so a la ');readln (a);
write ('nhap so b la ');readln (b);
while a < > b do
if a >b then a := a - b else b := b - a ;
write ( ' UCLN la :' , a );
readln
end.
15 tháng 3 2022
1:
#include <bits/stdc++.h>
using namespace std;
int n,i;
bool kt;
int main()
{
cin>>n;
kt=true;
for (i=2; i*i<=n; i++)
if (n%i==0) kt=false;
if (kt==true && n>1) cout<<"La so nguyen to";
else cout<<"Khong la so nguyen to";
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;
}