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;

long long x,i,n,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

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

{

cin>>x;

if (x%2==0) 

{

dem++;

t=t+x;

}

cout<<t<<" "<<dem;

return 0;

}

}

6 tháng 1 2022

Program HOC24;

var i,n: byte;

A: array[1..100] of integer;

t: longint;

begin

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] mod 2=0 then t:=t+a[i];

write('Tong cac so chan la: ',t);

readln

end.

23 tháng 12 2020

uses crt;

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

i,n,tc,tl,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tc:=0;

tl:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do  

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end. 

14 tháng 5 2022

code c++ di ban

 

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;

for i:=1 to n do 

  write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

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

writeln('Tong cac so chia het cho 7 la: ',t);

readln;

end. 

3 tháng 4 2022

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 = 0 then 
            d := d + 1;
    end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

 

19 tháng 5 2021

Program bt;

Uses crt;

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

         n,i: integer;

Begin

Write( 'Moi nhap n');

Readln(n);

For i: = 1 to n do

     Begin

          Write( 'a[',i,']');

          Readln(a[i]);

     End;

     For i: = 1 to n do

     If a[i] mod 2=0 then write( 'Cac so chan la',a[i]);

     Readln;

End.

 

3 tháng 4 2022

uses crt;
var A : array [1 .. 10] of integer;
i, n, d : integer;
begin
clrscr;
d := 0;
write('Nhap so luong phan tu : '); readln(n);
for i := 1 to n do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
        if A[i] mod 2 = 0 then 
            d := d + 1;
    end;
write('Cac phan tu vua nhap : ');
for i := 1 to n do write(A[i],' ');
writeln; write('Day co ', d ,' so chan ');
readln
end.

 

Bài 1: 

uses crt;

var a:array[1..200]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] mod 5=0 then t:=t+a[i];

writeln('Tong cac so chia het cho 5 la: ',t);

readln;

end.

Bài 2: 

uses crt;

var st:string;

d,i:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

for i:=1 to d do 

  if st[i]=#32 then delete(st,i,1);

writeln(st);

readln;

end.

14 tháng 2 2022

uses crt;

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

i,n,tc,tl,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

tc:=0;

tl:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

t:=0;

for i:=1 to n do  

t:=t+a[i];

writeln('Tong cua day so la: ',t);

readln;

end. 

uses crt;

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

i,n,dem1,dem2,t1,dem3,j,kt:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

dem1:=0;

dem2:=0;

t1:=0;

for i:=1 to n do 

  begin

if a[i] mod 2=0 then 

begin

dem1:=dem1+1;

t1:=t1+a[i];

end;

else dem2:=dem2+1;

end;

dem3:=0;

for i:=1 to n do 

  if (a[i]>1) then 

begin

kt:=0;

for j:=2 to trunc(sqrt(a[i])) do 

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

if kt=0 then dem3:=dem3+1;

end;

writeln(dem1, ' ',dem2);

writeln(t1);

writeln(dem3);

readln;

end.

15 tháng 11 2021

#include <bits/stdc++.h>

using namespace std;

long long a[10],i;

int main()

{

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

cin>>a[i];

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

cout<<a[i]<<" ";

cout<<endl;

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

if (a[i]%2==0) cout<<a[i]<<" ";

return 0;

}

3 tháng 4 2022

uses crt;
var A : array [1 .. 10] of integer;
i : integer;
begin
clrscr;
for i := 1 to 10 do
    begin
        write('Nhap so thu ', i ,' : ');
        readln(A[i]);
    end;
write('Cac gia tri chan : ');
for i := 1 to 10 do
    if A[i] mod 2 = 0 then 
        write(A[i], ' ');
readln
end.

24 tháng 3 2023

n = int(input("Nhập số phần tử của dãy: "))

a = [ ]

# đếm số chẵn

even_count = 0          

# đếm số lẻ

odd_count = 0            

for i in range(n):

     a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))

for i in a:

     if i % 2 == 0:

          even_count += 1

     else:

          odd_count += 1

print("Số lượng số chẵn trong dãy: ", even_count)

print("Số lượng số lẻ trong dãy: ", odd_count)

25 tháng 3 2023

n = int(input("Nhập số phần tử của dãy: "))

a = [ ]

# đếm số chẵn

even_count = 0          

# đếm số lẻ

odd_count = 0            

for i in range(n):

     a.append(int(input("Nhập phần tử thứ {0}: ".format(i+1))))

for i in a:

     if i % 2 == 0:

          even_count += 1

     else:

          odd_count += 1

print("Số lượng số chẵn trong dãy: ", even_count)

print("Số lượng số lẻ trong dãy: ", odd_count)

Đúng KO Ạ MK KO CHẮC