Những câu hỏi liên quan
Anh Thư
Xem chi tiết
Minh Lệ
10 tháng 4 2021 lúc 18:25

Program HOC24;

var d,i,n: integer;

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

t: longint;

function nt(x: longint): boolean;

var j: longint;

begin

nt:=true;

if (x=2) or (x=3) then exit;

nt:=false;

if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;

j:=5;

while j<=trunc(sqrt(x)) do

begin

if (x mod j=0) or (x mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

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

end;

d:=0; t:=0;

for i:=1 to n do

if nt(a[i]) then

begin

d:=d+1;

t:=t+a[i];

end;

writeln('Co ',d,' so nguyen to trong day');

write('Tong cac so nguyen to trong day la: ',t);

readln

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:18

uses crt;

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

i,n,dem,t,j,kt:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>1 then 

begin

kt:=0;

for j:=2 to a[i]-1 do 

 if a[i] mod j=0 then kt:=1;

if kt=0 then

begin

inc(dem);

t:=t+a[i];

end;

end;

writeln('So luong so nguyen to la: ',dem);

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

readln;

end.

Bình luận (0)
15	Hà Tú Linh
Xem chi tiết

33 số hang hok tốt

Bình luận (0)
 Khách vãng lai đã xóa
Phan Khoa Nguyên
22 tháng 7 2021 lúc 9:34

33 số hạng

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Hữu Đức
22 tháng 7 2021 lúc 9:36

có số số hạng là

      (34-2):1+1=33(số hạng)

   tk mk nhkk

Bình luận (0)
 Khách vãng lai đã xóa
Tiên Nguyễn
Xem chi tiết
Bùi Anh Tuấn
29 tháng 12 2020 lúc 19:51

phần a

Bình luận (1)
Bùi Anh Tuấn
29 tháng 12 2020 lúc 19:52

phần b

Bình luận (0)
Sarah Lilia
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 2 2021 lúc 20:53

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

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

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

if a[i] mod 2=0 then inc(dem1)

else inc(dem2);

end;

writeln('So luong so chan la: ',dem1);

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

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

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);

readln;

end.

Bình luận (1)
Tăng Cả
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 21:53

#include <bits/stdc++.h>

using namespace std;

long long n,i,dem,a[10000];

//chuongtrinhcon

bool ktnt(long long n)

{

for (int i=2; i*i<=n; i++)

if (n%i==0) return(false);

return(true);

}

//chuongtrinhchinh

int main()

{

cin>>n;

dem=0;

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

{

cin>>a[i];

if (a[i]>1 && (ktnt(a[i])==true)) dem++;

}

cout<<dem;

return 0;

}

Bình luận (0)
Nguyễn Minh Nhật
Xem chi tiết
Phan Thu
Xem chi tiết
Nguyễn thị kim chi
Xem chi tiết
chuche
16 tháng 12 2021 lúc 7:50

Tham Khảo:

 

Thuật toán

-Bước 1: Nhập n và nhập dãy số

-Bước 2: t←0; dem←0; i←1

-Bước 3: nếu a[i] mod 2=0 thì t←t+a[i] và dem←dem+1;

-Bước 4: i←i+1;

-Bước 5: Nếu i<=n thì quay lại bước 3

-Bước 6: Xuất dem và t

-Bước 7: Kết thúc

Bình luận (7)
Yến
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 22:15

#include <bits/stdc++.h>

using namespace std;

long long m,i,x,dem;

int main()

{

cin>>m;

dem=0;

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

{

cin>>x;

if (x<0) dem++;

}

cout<<dem;

return 0;

}

Bình luận (0)