Cho dãy số 1 và 1 phần 3 ; 1 và 1 phần 8 ; 1 và 1 phần 15 ; ..... Gọi S là tích 100soos đầu tiên của dãy . Khi đó 51S = ...........
cho dãy số N và 1 số nguyên k. tính tổng các phần tử là bội số của 3 và 5
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.
Cho dãy số: 1 phần 2 ; 2 phần 3 ; 3 phần 4 ; 4 phần 5 ; 5 phần 6 ; 6 phần 7 ;...
a) Xác định quy luật của dãy số trên.
b) Viết thêm 5 phân số tiếp theo vào dãy số trên.
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
Cho dãy số: 1 phần 2 ; 2 phần 3 ; 3 phần 4 ; 4 phần 5 ; 5 phần 6 ; 6 phần 7 ;...
a) Xác định quy luật của dãy số trên.
b) Viết thêm 5 phân số tiếp theo vào dãy số trên.
giúp mình câu này mới
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
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
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.
Câu 2:
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;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Cho dãy số gồm N số nguyên A1,A2,... An và số nguyên K. - Tìm cách chọn K phần tử liên tiếp nhau trong dãy số A sao cho tổng giá trị của chúng là lớn nhất.
Input: N=9 , K=2 và dãy số: 9 -1 9 -8 -2 -2 3 5 -8
Output: 8
( Giải thích:Có 3 cách chọn 2 phần tử liên tiếp nhau thỏa mãn điều kiện, đó là các cặp phần tử ở các vị trí: (1, 2), (2, 3), (7, 8) và tổng giá trị của các phần tử được chọn là 8.)
NHỜ MỌI NGƯỜI GIÚP ĐỠ Ạ. CẢM ƠN MN NHIỀU NHÉ!
Viết chương trình nhập vào 1 dãy số nguyên gồm N phần tử(N<=100) và thực hiện: _Tính tổng các số âm trong dãy vừa nhập _Đếm số lượng các số chia hết cho 3 nhưng không phải là số chẵn trong dãy đó
viết chương trình nhập vào số 2 N,K và dãy số. Đếm và in ra số lượng các phần tử trong dãy có giá trị bằng K
Ví dụ:
nhập vào |
in ra |
5 1 1 2 3 1 1 |
3 |
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.
Cho 1 dãy số gồm n phần tử n<=15.Giá trị từng phần tử là số thực. Thực hiện các chương trình sau:
-Nhập từ bàn phím số phần tử và giá trị từng phần tử -Tính tổng các phần tử dương của dãy -Tính tổng và trung bình cộng của các phần tử lẻ của dãy -Tìm phần tử có giá trị lớn nhất của dãy -Tìm phần tử có giá trị nhỏ nhất -Sắp xếp dãy theo chiều tăng dần về giá trị của từng phần tử Giúp mình với ạ. Cảm ơn mọi ngườiĐề 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