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.
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;
writeln('Cac so chan la: ');
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t:=t+a[i];
inc(dem);
end;
writeln('Tong cac so chan la: ',t);
writeln('Trong day co ',dem,' so chan');
readln;
end.
a/ công thức tính số thứ n của dãy là (n-1) x khoảng cách + số đầu
tương tự, ta có:
(100-1)x3+4= 301
vậy số thứ 100 cả dãy là 301
câu b/ mình bí, xin lỗi bạn!
Sao duyệt mãi thế =="
Y tưởng : xét từng số hạng trong dãy nếu số hạng > 0 thì xếp vào một biến tổng rồi chia cho số hàng đã xếp được
Input : Dãy A gồm N số nguyên a1....aN;
Output : Trung bình cộng của các số dương;
B1 : Nhập N số nguyên a1.... aN;
B2 : TB <--- 0, dem <---- 0, i <---- 1, Tong <--- 0;
B3 : Nếu a[i] > 0 thì Tong <--- TB + a[i];
B4 : dem <--- dem + 1;
B5 : Nếu i > N thì đưa ra màn hình kết quả TB = Tong/Dem rồi kết thúc chương trình;
B 6 : i <--- i + 1 rồi quay lại B3;
Dáy số trên là: 3, 7, 10, 17, 27, 44, 71, 115
Tổng là :
3+7+10+17+27+44+71+115=294
Đáp sô : 294
Cho dãy số sau
3;7;10;17;.......Biết dãy số trên có 8 số hạng. Tính tổng của các số trong dãy số trên
8 số hạng là 3 ; 7 ; 10 ; 17 ; 28 ; 46 ; 75 ; 122
Tổng của các số trong dãy số trên là:
3 + 7 + 10 + 17 + 28 + 46 + 75 + 122 = 308
Đáp số : 308
to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end
to tbc
cs
make "n 1
make "dem 1
make "s 0
while [:dem<101][make "s :s + :n make "n :n + 4 make "dem :dem + 1]
make "tb :s/(:dem - 1)
rt 90 label[Trung binh cong la:] pu fd 200 pd label :tb ht
end
Từ 1 - 100 có: 11 số thuộc dãy số trên.
Tổng các chữ số thuộc dãy số trên :218
tổng các chữ số từ 1-100 thuộc dãy trên không chia hết cho 10