ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 2 Câu 1: const fi=

NL

Nguyễn Lê Phước Thịnh

14 tháng 8 2020

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 2 Câu 1: const fi='ptyn.inp'; fo='ptyn.out'; var a:array[1..100,1..100]of integer; i,j,n,m,snn,sln,vtc,vth,x,z,kt,k,dem:integer; f1,f2:text; begin assign(f1,fi); reset(f1); assign(f2,fo); rewrite(f2); readln(f1,n,m); for i:=1 to n do for j:=1 to m do read(f1,a[i,j]); {----------nho nhat hang----------} dem:=0; for i:=1 to n do begin snn:=a[i,1]; for j:=1 to m do if snn>=a[i,j] then begin snn:=a[i,j]; vth:=i; vtc:=j; end; kt:=0; ...

Đọc tiếp

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 2

Câu 1:

const fi='ptyn.inp';
fo='ptyn.out';
var a:array[1..100,1..100]of integer;
i,j,n,m,snn,sln,vtc,vth,x,z,kt,k,dem:integer;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,m);
for i:=1 to n do
for j:=1 to m do
read(f1,a[i,j]);
{----------nho nhat hang----------}
dem:=0;
for i:=1 to n do
begin
snn:=a[i,1];
for j:=1 to m do
if snn>=a[i,j] then
begin
snn:=a[i,j];
vth:=i;
vtc:=j;
end;
kt:=0;
sln:=a[vth,vtc];
for k:=1 to n do
if sln<a[k,vtc] then kt:=1;
if kt=0 then
begin
writeln(f2,vth,' ',vtc);
dem:=dem+1;
end;
end;
if dem=0 then writeln(f2,'Khong co phan tu yen ngua');
close(f1);
close(f2);
end.

Câu 2: Bài làm của bạn @Tran Nguyễn Đăng Dương

Program connect;
uses crt;
const fi='connect.inp';
fo='connect.out';
type num=record
number,top:integer;
end;
var a:array[0..1000] of num;
t:num;
i,n,j:integer;
f1,f2:text;
Function timtop(a:integer):integer;
begin
if a<10 then exit(a);
exit(timtop(a div 10));
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,n);
for i:=1 to n do
begin
read(f1,a[i].number);
a[i].top:=timtop(a[i].number);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i].top=a[j].top then
begin
if a[i].number>a[j].number then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end
else if a[i].top<a[j].top then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
for i:=1 to n do write(f2,a[i].number);
Close(f1);
Close(f2);
End.

Câu 3:

const fi='quediem.inp';
fo='quediem.out';
var f1,f2:text;
i,m,n,d,x,j,csc:longint;
a,b:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
{---------------------------tim-so-lon-nhat----------------------------}
m:=n;
if m mod 2=0 then
begin
for i:=1 to n div 2 do
write(f2,'1');
end
else begin
write(f2,'7');
for i:=2 to n div 2 do
write(f2,'1');
end;
{---------------------------tim-so-nho-nhat----------------------------}
write(f2,'-');
a[1]:=2; b[1]:=1;
a[2]:=5; b[2]:=2;
a[3]:=4; b[3]:=4;
a[4]:=6; b[4]:=6;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
d:=(n div 7)+1;
if n mod 7=0 then d:=d-1;
if d=1 then
begin
case n of
2: write(f2,'1');
3: write(f2,'7');
4: write(f2,'4');
5: write(f2,'2');
6: write(f2,'0');
7: write(f2,'8');
end;
end;
if d>1 then
begin
for i:=1 to d do
if i=1 then
begin
b[4]:=6;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=(x div 7)+1;
if x mod 7=0 then dec(csc);
if csc=d-i then
begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end
else begin
a[1]:=6; b[1]:=0;
a[2]:=2; b[2]:=1;
a[3]:=5; b[3]:=2;
a[4]:=4; b[4]:=4;
a[5]:=3; b[5]:=7;
a[6]:=7; b[6]:=8;
for j:=1 to 6 do
begin
x:=n;
x:=x-a[j];
csc:=(x div 7)+1;
if x mod 7=0 then csc:=csc-1;
if csc=d-i then
begin
write(f2,b[j]);
n:=x;
break;
end;
end;
end;
end;
close(f1);
close(f2);
end.

Câu 4:

const fi='tvh.inp';
fo='tvh.out';
var n,d,dem,sl,s2cs,s3cs,s4cs,s5cs,s6cs,s7cs,s8cs,k,i,d1:longint;
st,st1,stk:string;
f1,f2:text;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n,k);
str(n,st);
d:=length(st);
case d of
1: write(9);
2: begin
sl:=n-9;
dem:=9+sl*2;
end;
3: begin
s2cs:=(99-10)+1;
s3cs:=n-99;
dem:=9+s2cs*2+s3cs*3;
end;
4: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=n-999;
dem:=9+s2cs*2+s3cs*3+s4cs*4;
end;
5: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=n-9999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5;
end;
6: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=n-99999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6;
end;
7: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=(999999-100000)+1;
s7cs:=n-999999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6+s7cs*7;
end;
8: begin
s2cs:=(99-10)+1;
s3cs:=(999-100)+1;
s4cs:=(9999-1000)+1;
s5cs:=(99999-10000)+1;
s6cs:=(999999-100000)+1;
s7cs:=(9999999-1000000)+1;
s8cs:=n-9999999;
dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6+s7cs*7+s8cs*8;
end;
end;
if k<=dem then
begin
i:=1;
d1:=0;
repeat
str(i,st1);
d1:=d1+length(st1);
inc(i);
until d1>=k;
stk:=st1[length(st1)-(d1-k)];
writeln(f2,stk);
end;
close(f1);
close(f2);
end.

Câu 5: Bài làm của bạn @Tran Nguyễn Đăng Dương

Program robot;
uses crt;
const fi='robot.inp';
fo='robot.out';
type path=record
num,npath:integer;
end;
var a:array[0..1000,0..1000] of path;
i,j,n:integer;
b,c:array[1..2] of Integer;
st,st1:string;
f1,f2:text;
check:boolean;
min:real;
Function he2sanghe10(st1:string):real;
var d,x,tg:integer;
stt:string;
begin
he2sanghe10:=0;
d:=Length(st1);
for i:=1 to d do
begin
stt:=st1[i];
Val(stt,x,tg);
he2sanghe10:=he2sanghe10*2+x;
end;
end;
Procedure robotpath(x,y:integer; st1:string);
var k:integer;
t:string;
S:real;
begin
if (x=n) and (y=n) then
begin
S:=0;
S:=he2sanghe10(st1);
if (min>S) then
begin
min:=S;
st:=st1;
end;
end
else
for k:=1 to 2 do
begin
if (x+b[k]>=1) and (y+c[k]>=1) and (x+b[k]<=n) and (y+c[k]<=n) then
begin
str(a[x+b[k],y+c[k]].num,t);
st1:=st1+t;
a[x+b[k],y+c[k]].npath:=a[x,y].npath+1;
robotpath(x+b[k],y+c[k],st1);
Delete(st1,Length(st1),1);
if (a[x+b[k],y+c[k]].npath=0) then break;
end;
end;
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
b[1]:=1; c[2]:=1;
min:=99999999999999999999999999999999999999;
read(f1,n);
for i:=1 to n do
for j:=1 to n do
begin
read(f1,a[i,j].num);
a[i,j].npath:=n*n;
end;
a[1,1].npath:=1;
Str(a[1,1].num,st1);
robotpath(1,1,st1);
writeln(f2,st);
Close(f1);
Close(f2);
End.

#Tin học lớp 11

7

NL

Nguyễn Lê Phước Thịnh

14 tháng 8 2020

Bài làm của bạn @lê chí hiếu(bạn được 2,1 điểm)

bài 1

program PTYN;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,m,n:integer;
f1,f2:text;
Max, Min:Integer;
Kt:boolean;
Procedure XuatMang;
begin
For i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:4);
Writeln;
end;
end;
Procedure MaxCot(l:Integer);
var p:Integer;
begin
Max:=A[1,l];
For p:=2 to n do
if A[p,l]>Max then Max:=A[p,l];
end;
Procedure MinHang(k:Integer);
var o:integer;
begin
Min:=A[k,1];
For o:=2 to n do
if A[k,o]<Min then Min:=A[k,o];
end;
begin
clrscr;
assign(f1,'ptyn.inp');
assign(f2,'ptyn.out');
reset(f1);rewrite(f2);
while not EOF(f1) do
begin
kt:=false;
readln(f1,n,m);
for i:=1 to n do
begin
for j:=1 to m do
Read(f1,a[i,j]);
readln(f1);
end;

for i:=1 to n do
begin
for j:=1 to n do
begin
MaxCot(j);
MinHang(i);
if Max=Min then
begin
Writeln(f2,'(',i,',',j,')');
kt:=true;
end;
end;
end;
If kt=false then Writeln(f2,'Khong co ptu yen ngua.');
end;
Close(f1); Close(f2);
Readln
End.

Bài 4

const fi='tvh.inp';

fo='tvh.out';

var n,d,dem,sl,s2cs,s3cs,s4cs,s5cs,s6cs,s7cs,k,i,d1:longint;

st,st1,stk:string;

f1,f2:text;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n,k);

str(n,st);

d:=length(st);

case d of

1: write(9);

2: begin

sl:=n-9;

dem:=9+sl*2;

end;

3: begin

s2cs:=(99-10)+1;

s3cs:=n-99;

dem:=9+s2cs*2+s3cs*3;

end;

4: begin

s2cs:=(99-10)+1;

s3cs:=(999-100)+1;

s4cs:=n-999;

dem:=9+s2cs*2+s3cs*3+s4cs*4;

end;

5: begin

s2cs:=(99-10)+1;

s3cs:=(999-100)+1;

s4cs:=(9999-1000)+1;

s5cs:=n-9999;

dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5;

end;

6: begin

s2cs:=(99-10)+1;

s3cs:=(999-100)+1;

s4cs:=(9999-1000)+1;

s5cs:=(99999-10000)+1;

s6cs:=n-99999;

dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6;

end;

7: begin

s2cs:=(99-10)+1;

s3cs:=(999-100)+1;

s4cs:=(9999-1000)+1;

s5cs:=(99999-10000)+1;

s6cs:=(999999-1000000)+1;

s7cs:=n-999999;

dem:=9+s2cs*2+s3cs*3+s4cs*4+s5cs*5+s6cs*6+s7cs*7;

end;

if k<=dem then

begin

i:=1;

d1:=0;

repeat

str(i,st1);



d1:=d1+length(st1);

i:=i+1;

until d1>=k;

stk:=st1[length(st1)-(d1-k)];

writeln(f2,stk);

end;

close(f1);

close(f2);

end.

Bài 5

PROGRAM robot;

VAR A:ARRAY[0..30,0..30] OF BYTE;

F:ARRAY[0..30,0..30] OF LONGINT;

m,n:INTEGER;

PROCEDURE Enter;

VAR i,j:INTEGER;

BEGIN

readln(m,n);

FOR i:=1 TO m DO

BEGIN

FOR j:=1 TO n DO read(A[i,j]);

readln;

END;

FOR i:=0 TO m DO A[i,0]:=-1;

FOR j:=0 TO n DO A[0,j]:=-1;

END;

FUNCTION Max(a,b:LONGINT):LONGINT;

BEGINIF (a>b) THEN Max:=a ELSE Max:=b;

END;

PROCEDURE Optimize;

VAR i,j:INTEGER;

BEGIN

FOR i:=0 TO m DO F[i,0]:=-1;

FOR j:=0 TO n DO F[0,j]:=-1;

F[0,1]:=0;

FOR i:=1 TO m DO

FOR j:=1 TO n DO

F[i,j]:=2*Max(F[i,j-1],F[i-1,j])+A[i,j];

END;

PROCEDURE Trace(i,j:INTEGER);

BEGINIF (i=1) AND (j=1) THEN

writeln(F[m,n])

ELSE

BEGIN

IF F[i,j-1]>F[i-1,j] THEN

Trace(i,j-1)

ELSE

Trace(i-1,j);

writeln(i,' ',j);

END;

BEGIN

Assign(Input,'Robot.inp'); Reset(Input);

Assign(Output,'Robot.out');Rewrite(Output);

Enter;

Optimize;

Trace(m,n);

close(Input);

close(Output);

END.

Đúng(0)

TN

Tran Nguyễn Đăng Dương

14 tháng 8 2020

Em hiểu,nhưng cách anh chỉ đến 8 chữ số là cùng.

Cách em thì chỉ cần lấy int64(em dùng luôn mấy biến real vì bự hơn) thì chấp 10^30

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

21 tháng 7 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:Câu 1(2 điểm)uses crt;var a:array[1..100000]of int64;i,n,x,dem:int64;beginclrscr;readln(n,x);for i:=1 to n doread(a[i]);dem:=0;for i:=1 to n doif x=a[i] then inc(dem);writeln(dem);readln;end.Câu 2(2 điểm)uses crt;var n,k,i,dem:int64;a:array[1..1000000]of int64;{-----------------chuong-trinh-con-quick-sort------------------------}procedure qs(d,c:int64);var i,j,x,tam:int64;begini:=d;j:=c;x:=a[(i+j) div 2];repeatwhile a[i]<x doinc(i);while a[j]>x dodec(j);if...

Đọc tiếp

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC LẦN 3:

Câu 1(2 điểm)

uses crt;

var a:array[1..100000]of int64;

i,n,x,dem:int64;

begin

clrscr;

readln(n,x);

for i:=1 to n do

read(a[i]);

dem:=0;

for i:=1 to n do

if x=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 2(2 điểm)

uses crt;

var n,k,i,dem:int64;

a:array[1..1000000]of int64;

{-----------------chuong-trinh-con-quick-sort------------------------}

procedure qs(d,c:int64);

var i,j,x,tam:int64;

begin

i:=d;

j:=c;

x:=a[(i+j) div 2];

repeat

while a[i]<x do

inc(i);

while a[j]>x do

dec(j);

if i<=j then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

inc(i);

dec(j);

end;

until i>j;

if d<j then qs(d,j);

if i<c then qs(i,c);

end;

{---------------chuong-trinh-chinh------------------}

begin

clrscr;

readln(n);

for i:=1 to n do

read(a[i]);

qs(1,n);

k:=a[n];

dem:=0;

for i:=1 to n do

if k=a[i] then inc(dem);

writeln(dem);

readln;

end.

Câu 3(2 điểm) Bài làm của bạn Hưng Nguyễn Thái

var a,b,c:int64;

begin

read(a,b,c);

if (a+b <= c) and ((c-a-b) mod 2 = 0) then write('Yes')

else write('No');

end.

Câu 4(6 điểm) Bài làm của bạn Quý Lương

#include<bits/stdc++.h>
#define ll long long
using namespace std;
int main()
{
ios_base::sync_with_stdio(false); cout.tie(NULL);
ll n, k;
cin>>n>>k;
ll d=__gcd(n, k);
n/=d; k/=d;
cout << n/k << '.';
n=n%k*10;
ll s=0, t=k;
for (s; t%2==0 or t%5==0; s++) {
if (t%2==0) t/=2;
if (t%5==0) t/=5;
}
for (s; s>0; s--) {
cout << n/k;
n=(n%k) * 10;
}
if (t==1) cout << "(0)";
else {
ll r =10%t;
for (s=1; r!=1; s++) r=r*10 % t;
cout << '(';
for (s; s>0; s--) {
cout << n/k;
n=(n%k)*10;
}
cout << ')';
}
}

Câu 5(8 điểm) Bài làm của bạn Trần Nguyễn Đăng Dương

#include <bits/stdc++.h>
using namespace std;
int n;
long long a[100001];
long long f[100001];
void ans(long long x)
{
int dem=1;
for (long long i=2;i*i<=x;i++)
if (x%i==0)
{
f[dem]=i;
if (i!=sqrt(x))
{
f[dem+1]=x/i; dem+=2;
}
else dem++;
}
f[dem]=x;
sort(f+1,f+dem);
for (int i=1;i<=dem;i++) cout<<f[i]<<endl;
}
int main()
{
ios_base::sync_with_stdio(false);
cin.tie(nullptr); cout.tie(nullptr);
cin>>n;
for (int i=1;i<=n;i++) cin>>a[i];
long long gcd=abs(a[2]-a[1]);
for (int i=3;i<=n;i++)
gcd=__gcd(gcd,abs(a[i]-a[i-1]));
ans(gcd);
}

#Tin học lớp 10

5

MR

M r . V ô D a n h

21 tháng 7 2021

dàiiiiiiiiiiiiiiiiiiiiiiiiiii

Đúng(0)

弃佛入魔

21 tháng 7 2021

cmt đầu có được fan cứng không

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

14 tháng 7 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 3Câu 1(2 điểm)uses crt;var n,dv,ch:integer;beginclrscr;readln(n);if (0<=n) and (n<=19) thenbegincase n of0: write('zero');1: write('one');2: write('two');3: write('three');4: write('four');5: write('five');6: write('six');7: write('seven');8: write('eight');9: write('nine');10: write('ten');11: write('eleven');12: write('twelve');13: write('thirteen');14: write('fourteen');15: write('fifteen');16: write('sixteen');17: write('seventeen');18:...

Đọc tiếp

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC LẦN 3

Câu 1(2 điểm)

uses crt;

var n,dv,ch:integer;

begin

clrscr;

readln(n);

if (0<=n) and (n<=19) then

begin

case n of

0: write('zero');

1: write('one');

2: write('two');

3: write('three');

4: write('four');

5: write('five');

6: write('six');

7: write('seven');

8: write('eight');

9: write('nine');

10: write('ten');

11: write('eleven');

12: write('twelve');

13: write('thirteen');

14: write('fourteen');

15: write('fifteen');

16: write('sixteen');

17: write('seventeen');

18: write('eighteen');

19: write('nineteen');

end;

end

else

begin

dv:=n mod 10;

ch:=n div 10;

case ch of 2:

write('twenty');

3: write('thirty');

4: write('forty');

5: write('fifty');

6: write('sixty');

7: write('seventy');

8: write('eighty');

9: write('ninety');

end;

if dv>0 then

begin

write('-');

case dv of 1:

write('one');

2: write('two');

3: write('three');

4: write('four');

5: write('five');

6: write('six');

7: write('seven');

8: write('eight');

9: write('nine');

end;

end.

Câu 2(2 điểm)

uses crt;

var a,b,t,bcnn:int64;

begin

readln(a,b);

bcnn:=a*b;

t:=b mod a;

while t<>0 do

begin

t:=a mod b;

a:=b;

b:=t;

end;

bcnn:=bcnn div a;

writeln(a,' ',bcnn);

readln;

end.

Câu 3(4 điểm)

uses crt;

var q,i:longint;

n:array[1..10] of longint;

begin

clrscr;

readln(q);

for i:=1 to q do

readln(n[i]);

for i:=1 to q do

begin

if (n[i] mod 4=0) and (n[i] mod 100<>0) then writeln('YES')

else if n[i] mod 400=0 then writeln('YES')

else writeln('NO');

end;

end.

Câu 4(2 điểm)

uses crt;

var n,p,x,dem:int64;

{----------------------chuong-trinh-con-tim-ucln---------------------}

function ucln(a,b:int64):int64;

var t:int64;

begin

t:=b mod a;

while t<>0 do

begin

t:=a mod b;

a:=b;

b:=t;

end;

ucln:=a;

end;

{---------------------chuong-trinh-chinh---------------------}

begin

readln(n,p);

dem:=0;

for x:=1 to n do

if ucln(x,n)=p then inc(dem);

writeln(dem);

end.

Câu 5(10 điểm) Bài làm của bạn @Hưng Nguyễn Thái

#include<bits/stdc++.h>

using namespace std;

#define ll long long #define mod (ll)(1e7+7)

const ll N = 1000000;

ll lp[N+1];

vector<ll > pr;

void solve()

{ for (ll i=2; i<=N; ++i)

{ if (lp[i] == 0)

{ lp[i] = i; pr.push_back (i);

}

for (ll j=0; j<(ll )pr.size() && pr[j]<=lp[i] && i*pr[j]<=N; ++j)

lp[i * pr[j]] = pr[j];

}

ll po(ll a,ll n)

{ ll res=a, ans=1; while(n)

{ if(n%2) ans=ans*res%mod; res=res*res%mod; n/=2;

}

return ans;

}

ll aka(ll p, ll alpha)

{

if(alpha==0) return 1;

if(alpha==1) return (p+1);

if(alpha%2==1) return p*aka(p,alpha-1)+1;

if(alpha%2==0) return (po(p,alpha/2)+1)*(aka(p,alpha/2)-1)+1;

}

ll f(ll n)

{

ll tmp,i=0,so_mu,res=1;

while(pr[i]<=n)

{

tmp=pr[i];

so_mu=0;

while(tmp<=n)

{

so_mu = so_mu+ (n/tmp);

tmp=tmp*pr[i];

}

res=res*(so_mu+1)*(so_mu+2)/2%mod; i++;

}

return res;

}

int main(){ ll n,res; solve();

while(1)

{

cin>>n;

if(n==0) break;

res=f(n);

cout<<res<<'\n';

}

#Tin học lớp 10

9

NT

Nguyễn Trần Thành Đạt

15 tháng 7 2021

Nhìn dài quá

Đúng(7)

NT

Nguyễn Trần Thành Đạt

15 tháng 7 2021

Ngủ thôi

Đúng(3)

TL

Trịnh Long

CTVVIP

10 tháng 8 2021

Câu hỏi hay

Đáp án Vòng 1 cuộc thi sinh học ( do Sunflower tạo đề và đáp án )

#Sinh học lớp 7

6

TL

Trịnh Long

CTVVIP

10 tháng 8 2021

Câu 24 :

undefined

Câu 2 ( TL )

undefined

Câu 3 ( TL )

Ảnh của Hồng Phúc

undefined

Đúng(5)

TL

Trịnh Long

CTVVIP

10 tháng 8 2021

C25 :

Phương pháp lai và phân tích các thế hệ lai.

Đúng(4)

NL

Nguyễn Lê Phước Thịnh

30 tháng 7 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 3 CUỘC THI TIN HỌC LẦN 3Câu 1(2 điểm) Bài làm của bạn Nguyễn Khánh Tài Huyvar a,b,tg1,tg2,UC: longint; f1,f2: text;function tguoc(x: longint): longint; var i,tg: longint; begin tg:=0; for i:=1 to trunc(sqrt(x)) do if x mod i = 0 then begin tg:=tg+i; tg:=tg+x div i; if i*i=x then tg:=tg-i; end; exit(tg); end;function UCLN(a,b: longint): longint; begin if a=0 then exit(b) else...

Đọc tiếp

#Tin học lớp 10

7

CB

CÔNG ๖ۣۜBá๖ۣۜ T BᎾℐ ☯️

30 tháng 7 2021

dài thế anh

Đúng(2)

CB

CÔNG ๖ۣۜBá๖ۣۜ T BᎾℐ ☯️

30 tháng 7 2021

Nguyễn Lê Phước Thịnh CTV nhìn chữ CTV mà ham

Đúng(0)

S

💢Sosuke💢

13 tháng 6 2021

ĐÁP ÁN VÒNG 2 CUỘC THI OLYMPIC TIẾNG ANH VOEC - SEASON 1 ---------------------------------------- BTC xin gửi tới các bạn đáp án Vòng 2 Cuộc thi Oympic Tiếng Anh Mùa 1:Section A: ListeningSection A:...

Đọc tiếp

#Tiếng anh lớp 9

4

NN

Ngố ngây ngô

13 tháng 6 2021

8h sáng hả bạn? chắc lúc đó lỗi kĩ thuật một xíu, tụi mình đã khắc phục nhanh chóng ngay lúc đó rồi.

hôm qua có bạn 23h59' nộp cũng vẫn được nhận nhé

Đúng(2)

DT

Đỗ Thanh Hải

CTVVIP

13 tháng 6 2021

mình sai chỗ nào ta

Đúng(0)

S

💢Sosuke💢

8 tháng 6 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 1 CUỘC THI OLYMPIC TIẾNG ANH VOEC - SEASON 1 ---------------------------------------- BTC xin gửi tới các bạn đáp án Vòng 1 Cuộc thi Oympic Tiếng Anh Mùa 1:Section A: ReadingPart 2:1. yes2. no3. yes4. no5. no6. no7. yesPart 3: 1 D2 E3 C4 G5 FPart 4:1. sleeping2. outside3. opened4. ran5. bowl6. Tiger’s dinner partyPart 5:1. was a baby2. next to3. ...

Đọc tiếp

#Tiếng anh lớp 9

3

LH

Lê Huy Tường

VIP

8 tháng 6 2021

em có vò cái link danh sách nhưng ko đc thế là lại phải vào lại cái vòng 1 đếm 30 đứa đầu tiên^{(tự nhiên thấy mình,cứ tưởng ko đc đi tiếp)}

Đúng(0)

LH

Lê Huy Tường

VIP

8 tháng 6 2021

à em sai chinhs tả chút:vò = vào ạ(đánh máy hơi vội)

Đúng(0)

PT

Pham Trong Bach

16 tháng 8 2018

Trong một cuộc thi đố vui, ban tổ chức quy định mỗi người dự thi phải trả lời 10 câu hỏi ở vòng sơ tuyển. Mỗi câu hỏi này có sẵn 4 đáp án, nhưng trong đó chỉ có 1 đáp án đúng. Người dự thi chọn đáp án đúng sẽ được 5 điểm, chọn đáp án sai sẽ bị trừ 1 điểm. Ở vòng sơ tuyển Ban tổ chức tăng cho mỗi người thi 10 điểm và quy định người nào có tổng số điểm từ 40 trở...

Đọc tiếp

#Toán lớp 8

1

CM

Cao Minh Tâm

16 tháng 8 2018

Gọi x là số câu trả lời đúng (0 ≤ x ≤ 10, x ∈ N)

Số câu trả lời sai: 10 – x

Trả lời đúng x câu được 5x (điểm), trả lời sai 10 –x (câu) bị trừ (10- x) điểm.

Do đó, sau khi trả lời 10 câu thì người dự thi sẽ có: 5x – (10 – x) + 10

Để được dự thi tiếp vòng sau thì

Giải bài 44 trang 54 SGK Toán 8 Tập 2 | Giải toán lớp 8

Vậy người dự thi phải trả lời chính xác ít nhất 7 câu hỏi thì mới được dự thi ở vòng sau.

Đúng(0)

SG

Sách Giáo Khoa

22 tháng 4 2017

Đố : Trong một cuộc thi đố vui, Ban tổ chức quy định mỗi người dự thi phải trả lời 10 câu hỏi ở vòng sơ tuyển. Mỗi câu hỏi nàu có sẵn đáp án, nhưng trong đó chỉ có 1 đáp án đúng. Người dự thi chọn đáp áp đúng sẽ được 5 điểm, chọn đáp án sai sẽ bị trừ đi 1 điểm. Ở vòng sơ tuyển, Ban tổ chức tặng cho mỗi người dự thi 10 điểm và quy định người nào có tổng điểm từ...

Đọc tiếp

#Toán lớp 8

1

QD

Quang Duy

22 tháng 4 2017

Gọi x là số câu trả lời đúng

Số câu trả lời sai: 10 – x

Sau khi trả lời 10 câu thì người dự thi sẽ có: 5x – (10 – x) + 10

Để được dự thi tiếp vòng sau thì

5x – (10 – x ) +10 ≥ 40

⇔ 5x - 10 + x + 10 ≥ 40

⇔6x ≥ 40

⇔ x ≥$\dfrac{20}{3}$ Vì x là số nguyên dương nhỏ hơn hay bằng 10 nên $203\leqx\leq10203\leqx\leq10$

Vậy người dự thi phải trả lời chính xác ít nhất 7 câu hỏi thì mới được dự thi tiếp ở vòng sau.

Đúng(0)

KH

Kẻ Huỷ Diệt

24 tháng 3 2016 - olm

Trong một cuộc thi đố vui, Ban tổ chức quy định mỗi người dự thi phải trả lời 10 câu hỏi ở vòng sơ tuyển. Mỗi câu hỏi này có sẵn 4 đáp án, nhưng trong đó chỉ có một đáp án đúng. Thí sinh chọn đáp án đúng sẽ được 5 điểm, đáp án sai trừ 1 điểm. Ở vòng sơ tuyển, Ban tổ chức tặng cho mỗi thí sinh 10 đ và quy định người nào có tổng số điểm từ 40 trở lên mới được dự thi...

Đọc tiếp

#Toán lớp 8

1

LT

Lê Thị Anh Thư

3 tháng 4 2016

Gọi x là số câu hỏi được trả lời đúng ở vòng sơ tuyển (x nguyên dương)
Số câu hỏi trả lời sai: 10 – x
Số điểm người dự thi đạt được: 10 + 5x – (10 -x)
Người dự thi muốn thi tiếp vòng sau thì 10 + 5x – (10 -x) ≥ 40
⇔ 6x ≥ 40 ⇔ x ≥ 20/3. Do x nguyên dương nên x ∈ {7;8;9;10}

Đúng(0)

DH

Đức Hiếu

29 tháng 7 2021

Câu hỏi hay

ĐÁP ÁN VÒNG 2 ĐỀ 150 CUỘC THI HÓA HỌC Nhận xét: Đề lần này đa phần các bạn sai nhiều ở câu ancol tách nước và câu hỗn hợp axit, một số còn mắc lỗi ở việc viết CTCT của câu este bị lỗi hoặc "tổng quát hóa" nên dẫn đến việc mất điểm. Câu ancol các bạn bị nhầm việc M của hỗn hợp ban đầu chính bằng M của hỗn hợp dư nhưng thực ra nó đã bị lệch đi vì tỉ lệ ancol phản ứng tách nước ra...

Đọc tiếp