Program Hoc24;

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

d,i,n,x: integer;

begin

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

for i:=1 to n do

begin

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

end;

write('Nhap so can tim: '); readln(x);

d:=0;

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

if d>0 then write('Co so can tim trong day ban dau') else write('Khong co so can tim trong day ban dau');

readln

end.

uses crt;

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

n,i,x,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap so can tim: '); readln(x);

kt:=0;

for i:=1 to n do 

  if a[i]=x then kt:=1;

if kt=0 then writeln(x,' khong co trong day')

else writeln(x,' co trong day');

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

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

for i:=1 to n do write(a[i]:4);

readln;

end.

Dãy này có dạng 7 + 5k (với k là số tự nhiên)

a/ số thứ 1000 là số 7 + 5×999 = 5002

b/ ta có 38264 - 7 = 38257 không chia hết cho 5

195841 - 7 = 195834 không chia hết cho 5

Vậy cả 2 số không thuộc dãy số trên

2 + 3² = 2 + 9 = 11

11 + 5² = 11 + 25 = 36

36 + 7² = 36 + 49 = 85

2 số liên tiếp của dãy số trên cách nhau:

\(117-108=9\left(đv\right)\) (đv = đơn vị)

⇒ Vậy dãy số trên có:

\(\left(998-108\right)\div9+1\) = 99(số)

Đáp số: 99 số.

A=1+2+3+...+2018=(1+2018)+(2+2017)+...(1009+1010)=2019x1009=2037171

B=(1+2019)+(3+2017)+...+(1009+1011)=2020x505=1020100

C=(2020+2)+(2018+4)+...+(1010+1012)=2022x505=1021110

Quy luật:

Số đằng sau gấp số đằng trước 2 lần.

=> các chữ số tiếp theo là: 65 ; 129

= > 3;5;9;17;33;65;126

click đi

3= 2 nhân 1+1

5=2 nhân 2 +1

9=2 nhân4 +1

17=2 nhân 8 +1

33= 2 nhân 16+1

quy luật của dãy là mỗi số là tích của 2 nhân với một số sao cho số nhân dằng sau gấp 2 lần số nhân phía trước

vầy 2 số tiếp theo là 2.32+1 =65 và 2.64+1=129

đúng thì k

vì sao? Chắc chắn chứ!