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.

22 tháng 5

ia hết cho 3, số chẵn và số lẻ

Giả sử bạn cần viết chương trình nhập vào một dãy số, tính tổng:

  • Các số chia hết cho 3
  • Các số chẵn
  • Các số lẻ

Dưới đây là ví dụ bằng Python:



python

n = int(input("Nhập số lượng phần tử: "))
tong_chia_het_3 = 0
tong_chan = 0
tong_le = 0

for i in range(n):
    x = int(input(f"Nhập số thứ {i+1}: "))
    if x % 3 == 0:
        tong_chia_het_3 += x
    if x % 2 == 0:
        tong_chan += x
    else:
        tong_le += x

print("Tổng các số chia hết cho 3:", tong_chia_het_3)
print("Tổng các số chẵn:", tong_chan)
print("Tổng các số lẻ:", tong_le)

Nếu bạn cần bằng ngôn ngữ khác (Pascal, C, v.v.), hãy nói rõ nhé!

#include <bits/stdc++.h>

using namespace std;

int B[100],n,t;

{

cin>>n;

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

t=0;

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

if (B[i]%10==0) t+=B[i];

cout<<t<<endl;

int dem=0;

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

if ((i%2==0) && (A[i]%2!=0)) dem++;

cout<<dem<<endl;

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

if ((A[i]%2!=0) && (A[i]%3==0)) cout<<A[i];

}

23 tháng 12 2021

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

23 tháng 12 2021

Bài 1 đâu ạ

 

16 tháng 4 2023

program BaiToanMang;

var
  A: array[1..100] of integer;
  N, i, demChan, tongLeChia3: integer;

begin
  write('Nhap so phan tu cua mang: ');
  readln(N);
  writeln('Nhap cac phan tu cua mang: ');
  for i := 1 to N do
  begin
    write('a[', i, ']= ');
    readln(A[i]);
  end;
  tongLeChia3 := 0;
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
    begin
      tongLeChia3 := tongLeChia3 + A[i];
    end;
  end;
  writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
  demChan := 0;
  for i := 2 to N do
  begin
    if (A[i] mod 2 = 0) and (i mod 2 = 1) then
    begin
      demChan := demChan + 1;
    end;
  end;
  writeln('So phan tu chan o vi tri le: ', demChan);
  writeln('Cac so chan chia het cho 5: ');
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
    begin
      write(A[i], ' ');
    end;
  end;
end.

ko bt đúng ko ko dùng pascal nhiều

16 tháng 4 2023

b dùng pascal hay python V:

Câu 1: 

uses crt;

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

i,n,t,s:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

s:=1;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

inc(dem);

t:=t+a[i];

s:=s*a[i];

end;

if dem=0 then writeln('Khong co so chia het cho 3 trong day')

else begin

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

writeln('Tich cac so chia het cho 3 la: ',s);

end;

readln;

end.

Câu 2: 

uses crt;

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

i,n,dem,t: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] mod 2=0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So so chan la: ',dem);

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

readln;

end.

19 tháng 3 2023

Câu 1:

Program HOC24;

var i,p: integer;

t: longint;

begin

write('Nhap P: '); readln(p);

t:=0;

for i:=1 to p do if i mod 2<>0 then t:=t+i;

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

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

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

readln

end.