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.

9 tháng 10 2019

uses crt;
Var a:array[1..100000] of longint;
i,n,d:longint;
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
if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(d);
write('Co ',d,' so vua chia het cho 2 vua chia het cho 3');
readln
end.

9 tháng 10 2019

Program hotrotinhoc;

var tb: longint;

tbc: real;

i,n,d: integer;

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

begin

readln(n);

for i:=1 to n do

begin

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

end;

d:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) then

begin

inc(d);

tb:=tb+a[i];

end;

tbc:=tb/d;

write(tbc:2:2);

readln

end.

10 tháng 4 2021

a, Xác định bài toán:

+Input: Dãy số a1,….,an và (0,5đ)

+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)

b, Thuật toán:

Bước 1.Nhập N và dãy số a1,….,an;

Bước 2. i ←1; n ← 0; (0,25đ)

Bước 3. Nếu aithì n ←n+1;

Bước 4. i → i+1 (0,25đ)

Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)

Bước 6. Quay lại bước 3.

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

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

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

i←i+1;

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

Bước 5: xuất dem

Bước 6: Kết thúc

15 tháng 10 2021

#include <bits/stdc++.h>

using namespace std;

long long i,dem,t;

double tbc;

int main()

{

dem=0;

t=0;

for (i=5; i<=500; i++)

if (i%5==0) 

{

dem++;

t=t+i;
}

tbc=(t*1.0)/(dem*1.0);

cout<<fixed<<setprecsion(2)<<tbc;

return 0;

}

15 tháng 10 2021

bạn viết bình thường giúp mình với ,mình xem chả hiểu j

5 tháng 4 2023

program Dem_Chia_Het;
var s, i: longint;
begin
  s := 0;
  for i := 10 to 2000 do
  begin
    if i mod 297 = 0 then // Kiểm tra chia hết cho 9, 3, 11
      s := s + 1;
  end;
  writeln('So luong cac so chia het cho 9, 3 va 11 la: ', s);
end.

 

6 tháng 4 2023

count = 0

for i in range(10, 2001):

     if i % 3 == 0 and i % 9 == 0 and i % 11 == 0:

          count += 1

print(count)

17 tháng 8 2021

Program HOC24;

var d,i: integer;

begin

d:=0;

for i:=20 to 1000 do

if (i mod 2=0) and (i mod 3=0) then d:=d+1;

write(d);

readln

end.

11 tháng 11 2021

a: 

#include <bits/stdc++.h>

using namespace std;

long long n,i,x;

int main()

{

cin>>n;

int t=0;

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

{

cin>>x;

t=t+x;

}

cout<<t;

return 0;

}