Đoàn Xuân Sơn

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.

const B:=10;

var x,y:integer;

lonint bạn sửa lại longint nhé