Những câu hỏi liên quan
Loan Mai Thị
Xem chi tiết
Nguyễn Mai
Xem chi tiết
Ngô Bá Hùng
16 tháng 4 2023 lúc 10:09

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

Ngô Bá Hùng
16 tháng 4 2023 lúc 10:02

b dùng pascal hay python V:

Thuy Nguyen
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 10 2021 lúc 23:57

a: 

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}

phạm thị tít
Xem chi tiết
Huy
Xem chi tiết
Lê Quốc Vương
Xem chi tiết
Lê Quốc Vương
Xem chi tiết
Ngô Lâm Gia Nguyên
16 tháng 3 2016 lúc 19:50

là mặt trăng

dieu linh
20 tháng 2 2018 lúc 21:41

dang trong lĩnh vực toán học lấy đâu ra mặt trăng .Đúng là đồ dở hơi

Lê Quốc Vương
Xem chi tiết
Nguyễn Mai
Xem chi tiết