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.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,j;

bool kt;

int main()

{

freopen("nguyento.inp","r",stdin);

freopen("nguyento.out","w",stdout);

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

for (i=1; i<=n; i++)

if (a[i]>1) 

{

kt=true;

for (j=2; j*j<=a[i]; j++)

if (a[i]%j==0) kt=false;

if (kt==true) cout<<a[i]<<" ";

}

return 0;

}

14 tháng 1

#include <bits/stdc++.h> #define N int(1e7) #define sp ios_base::sync_with_stdio(0),cin.tie(0),cin.tie(0),cout.tie(0); using namespace std; long long l,r,d=0,b[N]; bool a[N]; void sang() { a[1]=true; for(int i=2; i*i<=N; i++) if(a[i]==false) for(int j=i*i; j<=N; j+=i) a[j]=true; for(int i=1; i<=N; i++) { if(a[i]==false) d+=i; b[i]=d; } } int main() { sp sang(); int t; while(t--) { cin>>l>>r; cout<<b[r]-b[l-1]<<'\n'; } }

1 tháng 3 2021

Thiếu đề!!

1 tháng 3 2021

tham khảo

9 tháng 1 2021

#include <iostream>

#include <fstream>

using namespace std;

ifstream input("D:/input.txt");

ofstream output("D:/ouput.txt");

int main()

{   

    int A[1000];

    int n ,dem=0;

    input >> n;

    for(int i=0;i<n;i++)       

        input >> A[i];   

    for(int i=0;i<n;i++)       

           if(A[i]<0)           

              dem +=A[i]; 

    output << dem; 

     return 0;

}

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i]<0 then t:=t+a[i];

writeln('Tong cac so nguyen am la: ',t);

readln;

end.

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

for i:=1 to n do 

  if a[i]<>x then write(a[i]:4);

readln;

end.

18 tháng 4 2021

Mình cảm ơn bạn nhiều lắm

 

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

5 tháng 1 2021

Mọi người làm nhanh hộ ạ, em đang cần gấp ạ, phiền mọi người ạ

 

uses crt;

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

i,n,min,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

dem:=0;

for i:=1 to n do 

  if min=a[i] then inc(dem);

writeln('So phan tu co gia tri nho nhat trong day la: ',dem);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100];

cin>>n;

for (int i=1; i<=n; i++)

cin>>A[i];

for (int i=1; i<=n; i++)

cout<<A[i]<<" ";

return 0;

}

Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé

uses crt;

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

i,n,t,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

edn;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.