Bài 1:Cho dãy số sau:1;7;13;19;25;... Số thuộc dãy số trên là
Bài 2:trong các số tự nhiên từ 1000 đến 9999 có bao nhiêu số ko chi hết cho 3
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.
a) Số lượng chữ số là:
\(\left(51-1\right):2+1=26\) (số hạng)
b) Tổng của dãy số:
\(\left(51+1\right)\times26:2=676\)
c) Số lượng chữ số của dãy số trên:
\(1\times5+\left(26-5\right)\times2=47\) (chữ số)
Bài 1:
Program HOC24;
var a: array[1..1000] of integer;
i,n,d: integer;
begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
for i:=1 to n do if (a[i]<0) and (a[i] mod 2=0) then d:=d+1;
write('Co ',d,' so nguyen am chan trong day so');
readln
end.
Bài 2:
Program HOC24;
var a: array[1..1000] of integer;
i,n: integer;
t: longint;
begin
write('Nhap so phan tu: '); 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 5=0 then t:=t+a[i];
write(Tong la: ',t);
readln
end.
Bạn biết đáp án chưa á bạn gửi mình xem với mai là mình phải nộp cô rôi
Bài 1:
uses crt;
var a:array[1..1000000]of longint;
i,n,x:longint;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Nhap x='); readln(x);
for i:=1 to n do
if a[i]<>x then write(a[i]:4);
readln;
end.
Bài 1 :
Số thuộc dãy số trên là số chia 6 dư 1
Bài 2 :
Số bé nhất lớn hơn hoặc bằng 1000 chia hết cho 3 là 1002
Số lớn nhất bé hơn hoặc bằng 9999 chia hết cho 3 là 9999
Số các số chia hết cho 3 từ \(1000\rightarrow9999\)là : ( 9999 - 1000 ) : 3 + 1 = 3000 ( số )
Từ \(1000\rightarrow9999\)có : ( 9999 - 1000 ) : 1 + 1 = 9000 ( số )
Có số số không chia hết cho 3 là : 9000 - 3000 = 6000 ( số )
Vậy ...
Bài 1:số thuộc dãy trên là:31
Bài 2:6000 số