Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Hoàng Lương
Xem chi tiết
hai hai
Xem chi tiết
Thế Long
Xem chi tiết
Luân Đào
1 tháng 1 2021 lúc 15:59

var n,i,k,d: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

write('Nhap so k: '); readln(k);

d:=0;

for i:=1 to n do

if a[i] mod k = 0 then d:=d+1;

writeln('Co ',d,' so chia het cho ',k,' trong day');

if d mod 2 = 0 then writeln('Chan') else writeln('Le');

end.

Nguyễn Lê Phước Thịnh
2 tháng 1 2021 lúc 9:20

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

repeat

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

until (0<n) and (n<=52);

for i:=1 to n do 

  begin

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

end;

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

dem:=0;

for i:=1 to n do  

  if a[i] mod k=0 then inc(dem);

writeln('Trong day co ',dem,' so chia het cho ',k);

if dem mod 2=0 then writeln('So luong so chia het cho ',k,' la so chan')

else writeln('So luong so chia het cho ',k,' la so le');

readln;

end.

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.

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.

Trần Phương Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
26 tháng 10 2021 lúc 23:17

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==27) dem++;

}

cout<<dem;

return 0;

}

Minh Lệ
27 tháng 10 2021 lúc 6:18

a)

Input: số nguyên dương n và dãy số A1,A2,...,An

Output: Số phần tử có giá trị bằng 27

b) Thuật toán liệt kê:

Bước 1: Nhập n và dãy A1,A2,..,An

Bước 2: Dem←0; i←1;

Bước 3: Nếu i>n thì in ra Dem và kết thúc

Bước 4: Nếu Ai = 27 thì Dem←Dem+1;

Bước 5: i←i+1, quay lại bước 3

Đinh Thị Duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 10 2021 lúc 23:24

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

Hoài Linh
Xem chi tiết
Nguyễn Lê Phước Thịnh
27 tháng 10 2021 lúc 15:14

a: #incldue <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

if (x>0) t=t+x;

}

cout<<t;

return 0;

}

Phan Thu
Xem chi tiết
Bnmb
Xem chi tiết
Nguyễn Lê Phước Thịnh
25 tháng 10 2021 lúc 23:30

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}