We chat about the party

-> We ... about the party

con duong, k nha

số đó là : 389

mình chắc chắn 100 % vì mình làm bài này ở violympic vòng 1 được 300 điểm

Phỏ i Var i, n, s, a:integer;

Begin

Readln(a, n);

s:=1;

For i:=1 to n do s:=s*a;

Writeln(s);

End.

var i,n:integer; t:tong;

begin

readln(n); s:=0;

for i:=1 to n do t:=t+1/i;

writeln(t);

end.

2) Sắp xếp mảng theo thứ tự tăng dần

type mang=array [1..20] of integer;

var a:mang; i,n,s,k:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n-1 do

for k:=i+1 to n do

if a[i] > a[k] then ( giảm dần thì đổi dấu )

begin

s:=a[i];

a[i]:=a[k];

a[k]:=s;

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

2) Type mang=array [1..20] of integer;

var a:mang; n,i,sl:integer;

begin

readln(n); sl:=0;

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

if a[i] mod 2 =0 then sl:=sl+1;

writeln(sl);

readln;

end.

1) type mang=array [1..20] of integer;

var a:mang; i,n:integer;

begin

readln(n);

for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

Gọi chữ số thứ 1000 là x ta có :

( x - 1 ) : 2 +1 =1000

=> ( 1000 - 1 ) . 2 + 1 = 1999

Vậy x = 1999

tick nha