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.

29 tháng 4 2021

Program HOC24;

var i,n,k: integer;

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

t: longint;

begin

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

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

t:=0;

for i:=1 to n do if (a[i] mod 3=0) and (a[i] mod 5=0) then t:=t+a[i];

write('Tong cac phan tu la boi cua 3 va 5 la: ',t);

readln

end.

a: Quy luật là \(\dfrac{n}{n+1}\left(n\in N\right)\)

b: 7/8; 8/9; 9/10; 10/11; 11/12

18 tháng 1 2022

a,Quy luật:phân số sau bằng phân số trước cộng 1 ở cả tử và mẫu

b,7 phần 8 ; 8 phần 9 ; 9 phần 10 ; 10 phần 11 ; 11 phần 12

5 tháng 4 2021

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

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

writeln('tong cua day la:');

readln;

end.

Câu 1: 

uses crt;

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

i,n: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);

readln;

end.

14 tháng 4 2023

Program HOC24;

var i,n,k,d: integer;

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

begin

readln(n,k);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i]=k then d:=d+1;

write(d);

readln

end.

Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )-          Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 3-          Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tốĐề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )-          Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần-          Dòng 2: In...
Đọc tiếp

Đề 1 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: In ra dãy số đã sắp xếp theo thứ tự tăng dần

-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 3

-          Dòng 3: Tính tổng các phân tử trong dãy số là số nguyên tố

Đề 2 ; Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: : In ra dãy số đã sắp xếp theo thứ tự giảm dần

-          Dòng 2: In ra các phần tử trong dãy số chia hết cho 5

-          Dòng 3: Tính tổng các phân tử trong dãy số là số chính phương

Đề 3 : Nhập từ bàn phím dãy số gồm phần tử ( n nhập từ bàn phím )

-          Dòng 1: : In ra dãy số đã sắp xếp những số chia hết cho 5 đứng đầu dãy

-          Dòng 2:  In ra các phần tử trong dãy số chia hết cho 7

-          Dòng 3: Tính tổng các phân tử trong dãy số là số đối xứng có trong dãy số

huhu giúp tớ với

0