Đoàn Xuân Sơn

const fi='nix.inp';
fo='nix.out';
var
f:text;
j,i,n,max:0..100;
a,b,l,m: array [0..101] of integer;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:= 1 to n do
read(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
for i:= 0 to n do
l[i] := 1;
for i:= 1 to n do
for j:= i to n do
if (a[j] > a[i] ) and (l[j] < l[i] + 1 ) then
begin
l[j] := l[i] + 1;
m[j]:= i;
end;
max:=0;
for i:= 1 to n do
if l[i] > max then
begin
j:=i;
max:=l[i];
end;

writeln(f,l[j]);

while m[j] <> 0 do
begin
l[j]:=-l[j];
j:=m[j];
end;
l[j]:=-l[j];
for i:= 1 to n do
if l[i] < 0 then write(f,i,' ');

close(f);
end;
BEGIN
ip;
out;
END.

haizzzz đáng lẽ ra dc 19,5 điểm mà bị trừ mất 0,5 điểm vì ko ghi mã đề
vòng sau sẽ rút kinh nghiệm :D

lọt rồi

Tên: Đoàn Xuân Sơn
Lớp : 9
link tài khoản : https://hoc24.vn/vip/sonkkson

program zoo;
var
i,n,k,d:integer;
a:array[1..32000] of integer;
function hello(x,y:integer):boolean;
begin
hello:=false;
if x mod y = 0 then hello := true
end;
begin
write(' nhap n: '); readln(n);
for i:= 1 to n do
begin
write(' nhap a[',i,'] = '); readln(a[i]);
end;
write(' nhap k = '); readln(k);

d:=0;
for i:= 1 to n do
if hello(a[i],k) = true then d:=d+1;
write(' so luong so chia het cho k la : ',d);
readln;
end.

bạn ơi chỗ var thêm f:text nha bạn

const fi='k.inp';

fo='k.out';

var

i,n,k,d:integer;
a:Array[1..32000] of integer;

begin

assign(f,fi);

reset(f);

readln(f,n);

for i:= 1 to n do

read(f,a[i]);

readln(f);

read(f,k);

close(f);

assign(f,fO);

rewrite(f);

d:=0;

for i:= 1 to n do
if a[i] mod k = 0 then inc(d);

write(f,' co ',d,'so chia het cho',k);

close(f);

end.

program son;
var

i,n:integer;

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

begin

write(' nhap n : '); readln(n);

for i:= 1 to n do

begin

write(' nhap a[',i,']');

readln(a[i]);

end;

for i:= 1 to n do

if a[i] mod 2 <> 0 then write(a[i],' ')

readln

end.

1: 500 vòng.
2: cuộn sơ cấp có số vòng ít hơn cuộn thứ cấp

ta có đường thẳng y=ax + b đi qua 2 điểm A và B có tọa độ như trên
ta có HPT:
\(\left\{{}\begin{matrix}a+b=3 \\-a+b=1\end{matrix}\right.\)

giải HPT ta có a=1 và b=2

kết luận : với a=1 và b=2 thi HPT đi qua 2 điểm A(1;3) và B(-1;1)

program nt;

var

n,i:integer;

k:boolean;

begin

write(' nhap n : ');

readln(n);

k:=true;

if n<2 then k:= fasle

else

for i:= 2 to trunc(sqrt(n)) do

if n mod i = 0 then

begin

k:=false;

break;

end;

if k=true then write(n,' la so nguyen to ') else

write(n,' khong phai la so nguyen to');

readln;

end.

A B C D E F G H I K L M N O P Q R S T V X Y Z

program chanle;

var

tl,tc,i,n,x:integer;

begin

write(' nhap n so nguyen: ');

readln(n);

for i:= 1 to n do

begin

read(x);

if x mod 2 = 0 then

tc:=tc+x;

if x mod 2 <> 0 then

tl:=tl+x;

end;

writeln(' tong cac so chan la: ',tc);

write('tong cac so le la: ',tl);

readln;

end.

program whilefor;

var

s,i,n:integer;

begin

write(' nhap n : ');

readln(n);

s:=0;

for i:= 1 to n do

s:= s +i;

writeln(' tong khi dung vong lap for la : ',s);

s:=0;

i:=0;

while i<=n do

begin

i:=i+1;

s:=s+i;

end;

write(' tong khi dung vong lap while la : ',s);

readln;

end.

s:=1;
for i:= 1 to n do
s:=s*(1+(1/sqr(n)));
write(s);

0 1 1 0 1 0 0 1 0

program sothuc;

var

n:real;

begin

write('nhap n : ');

readln(n);

write(n:0:1);

readln;

end.

INP rồi nha bạn

cấu trụ câu lệnh như sau:

for i:= 1 to n do

s:= s+a[i];

write(' tong cong: ',s);

readln;

end.

phần nhập thì bạn tự nhập nhé:

Cấu trục câu lệnh:

for i:= 1 to n do

if a[i] = k then d:= d+1;

write(' so phan tu mang bang k la: ',d);

readln;

end.

var

s,i,n:integer;

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

begin

write(' nhap so phan tu mang : ');

readln(n);

for i:= 1 to n do

begin

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

readln(a[i]);

end;

for i:= 1 to n do

if i mod 2 <> 0 then

s:= s + a[i];

write(' tong cac phan tu co vi tri le la : ',s);

readln;

end.

Ý TƯỞNG : nhập số phần tử rồi cho 1 vòng for từ 1 đền n rồi nhập từng phần tử mạng sau đó cho 1 vòng for đến n kiểm tra vị trị ( vị trí là biến mình dùng để chạy for ) có phải lẻ hay không bằng cách chia lấy dư cho 2 nếu là chia 2 mà dư 0 là chẵn còn nếu khác 0 là số lẻ rồi dùng biến cộng phần tử đỏ a[biến chạy] rồi in ra màn hình.

ôi chết dưới phần nhập n bạn thêm :

write(' nhap k: ');

readln(k);

CHO mình nha

var

n,k,d,i,s:integer;

begin

write(' nhap n: ');

readln(n);

for i:= 1 to n do

begin

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

readln(a[i]);

end;

for i:= 1 to n do

if k = a[i] then d:=d+1;

writeln(k,' xuat hien ',d,' lan trong mang ');

for i:= 1 to n do

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

write(' tong so chan trong mang la :',s);

readln;

end.

CHÚC BẠN HỌC TỐT :D

{ nhập n và mảng a}

for i:= 1 to n do

if a[i] mod 2 = 0 then inc(c) else inc(l);

writeln(' so chan : ',c);

write(' so le :',l);

begin

write(' CHAO CAC BAN ');

readln

end.