" 122001^ ""> " 122001^ ""> " 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.

21 tháng 12 2021

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

}

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.

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.

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.

10 tháng 5 2023

giúp em với ạ em cảm ơn nhìuu

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.

D
datcoder
CTVVIP
17 tháng 10 2023

Program HOC24;

uses crt;

var i,n: integer;

a: array[1..1000] of integer;

t: longint;

begin

clrscr;

readln(n); 

t:=0;

for i:=1 to n do

begin

read(a[i]);

if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];

end;

readln;

write(t);

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;

}

7 tháng 2 2023

 

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.

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;

}