HOC24
Lớp học
Môn học
Chủ đề / Chương
Bài học
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; 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);
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