Những câu hỏi liên quan
LP
Xem chi tiết
H9
24 tháng 9 2023 lúc 18:25

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ình luận (0)
LP
24 tháng 9 2023 lúc 18:23

giúp mik với ạ

Bình luận (0)
NQ
Xem chi tiết
NB
Xem chi tiết
LL
Xem chi tiết
ML
15 tháng 11 2021 lúc 14:52

VD: N=5, K=3, A1=2, A2=3, A3=3, A4=5, A5=6

i12345
ai23356
dem01222

 

 

 

Bình luận (0)
H24
Xem chi tiết
HT
3 tháng 2 2016 lúc 21:37

bài 1:                                                          20

bài 2:                                                           ?

Bình luận (0)
HH
Xem chi tiết
HH
Xem chi tiết
ML
6 tháng 4 2023 lúc 22:49

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ình luận (0)
ML
6 tháng 4 2023 lúc 22:54

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ình luận (0)
ML
6 tháng 4 2023 lúc 22:55

Bài 3:

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:=1;

for i:=1 to n do if (a[i] mod 2=0) then t:=t*a[i];

write('Tich la: ',t);

readln

end.

Bình luận (0)
H24
Xem chi tiết
KV
17 tháng 11 2021 lúc 18:20

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ình luận (0)
NN
Xem chi tiết
NT
8 tháng 3 2021 lúc 13:58

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ình luận (2)