HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
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);
end.
program son; var
i,n:integer;
a:array[1..32000] of integer;
write(' nhap n : '); readln(n);
write(' nhap a[',i,']');
readln(a[i]);
end;
if a[i] mod 2 <> 0 then write(a[i],' ')
readln
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;
n,i:integer;
k:boolean;
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
k:=false;
break;
if k=true then write(n,' la so nguyen to ') else
write(n,' khong phai la so nguyen to');
readln;