kết quả = 0

chúc học tốt

mik nghĩ :

= 0 

~~hok tốt ~~

99999999999999999999999*99999999999999999999999999999*1*0*99999999999999999999999999999999999999999999999999999999 = 0

bằng 1 xio mũ 38 đúng ko?

=số n ;D

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;

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;

END;

BEGIN

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

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

Enter;

Optimize;

Trace(m,n);

close(Input);

close(Output);

END.

Bài làm của bạn @Luân Đào(bạn được 2,8 điểm)

program b1;

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,' la phan tu yen ngua.');

kt:=true;

end;

end;

end;

if kt=false then Writeln(f2,'Khong co phan tu yen ngua.');

end;

Close(f1); Close(f2);

Readln;

End.

program b2;

uses crt;

var a:array[1..100] of integer;

b:array[1..100] of string;

i,j,n:longint;

tam:string;

f1,f2:text;

begin

assign(f1,'connect.inp');

reset(f1);

assign(f2,'connect.out');

rewrite(f2);

readln(f1,n);

for i:=1 to n do

read(f1,a[i]);

for i:=1 to n do

str(a[i],b[i]);

tam:='';

for i:=1 to n do

for j:=i+1 to n do

if b[i]<b[j] then

begin

tam:=b[i];

b[i]:=b[j];

b[j]:=tam;

end;

for i:=1 to n do

write(f2,b[i]);

close(f1);

close(f2);

end.

program b4;

var n,b,dem,sl,s2,s3,s4,s5,s6,s7,k,i,b1: longint;

st,s1,sk:string;

f1,f2: text;

procedure ip;

begin

assign(f1,'C:\FPC\3.0.4\bin\i386-win32\tvh.inp');

reset(f1);

read(f1,n,k);

close(f1);

end;

procedure op;

begin

assign(f2,'C:\FPC\3.0.4\bin\i386-win32\tvh.out');

rewrite(f2);

str(n,st);

b:=length(st);

case b of

1: write(f2,'9');

2: begin

sl:=n-9;

dem:=9+sl*2;

end;

3: begin

s2:=(99-10)+1;

s3:=n-99;

dem:=9+s2*2+s3*3;

end;

4: begin

s2:=99-10+1;

s3:=999-100+1;

s4:=n-999;

dem:=9+s2*2+s3*3+s4*4;

end;

5: begin

s2:=99-10+1;

s3:=999-100+1;

s4:=9999-1000+1;

s5:=n-9999;

dem:=9+s2*2+s3*3+s4*4+s5*5;

end;

6: begin

s2:=99-10+1;

s3:=999-100+1;

s4:=9999-1000+1;

s5:=99999-10000+1;

s6:=n-99999;

dem:=9+s2*2+s3*3+s4*4+s5*5+s6*6;

end;

7: begin

s2:=99-10+1;

s3:=999-100+1;

s4:=9999-1000+1;

s5:=99999-10000+1;

s6:=n-999999;

dem:=9+s2*2+s3*3+s4*4+s5*5+s6*6+s7*7;

end;

end;

if k>=dem then

begin

i:=1;

b1:=0;

repeat

str(i,s1);

b1:=b1+length(s1);

i:=i+1;

until b1>=k;

sk:=s1[length(s1)-(b1-k)];

write(f2,sk);

close(f2);

end;

end;

begin

ip;

op;

end.

program b5;

const fi = 'robot.inp';

fo = 'robot.out';

var f1,f2: text;

n,x,i,j: integer;

A: array[1..50,1..50] of string;

procedure ip;

begin

assign(f1,fi);

reset(f1);

read(f1,n);

close(f1);

end;

procedure op;

begin

for i:=1 to n do

for j:=1 to n do

begin

read(f1,x);

str(x,a[i][j]);

end;

for i:=2 to n do

begin

a[1,i]:=a[1,i-1]+a[1,i];

a[i,1]:=a[i-1,1]+a[i,1];

end;

for i:=2 to n do

for j:= 2 to n do

a[i,j]:= min(a[i-1,j],a[i,j-1]+a[i,j]);

assign(f2,fo);

rewrite(f2);

write(f2,a[n,n]);

close(f2);

end;

begin

ip;

op;

end.

Bài làm của bạn @TRẦN MINH HOÀNG

Câu 1:

var M,N,i,j,i1:byte;dem,p, Min:integer;

A:Array[1..100,1..100] of integer;

fi,fo:text;

begin

assign(fi,'ptyn.inp');

reset(fi);

assign(fo,'ptyn.out');

rewrite(fo);

read(fi,M);

read(fi,N);

for i:=1 to M do

for j:=1 to N do

read(fi,A[i,j]);

dem:=0;

for i:=1 to M do

begin

Min:=A[i,1];

for j:=1 to N do

if A[i,j]<Min then Min:=A[i,j];

for j:=1 to N do

if A[i,j]=Min then

begin

p:=1;

for i1:=1 to M do if A[i1,j]>A[i,j] then begin p:=0; break end;

if p=1 then begin write(fo,i,' ',j); dem:=dem+1 end;

end;

end;

if dem=0 then write(fo,'Khong co phan tu yen ngua');

close(fi);

close(fo);

end.

Câu 2:

var n,i,j,k,doi,B:longint; Si,Sj,S1,S2:string;

A:Array[1..1000000] of longint;

fi,fo:text;

function LCM(a,b:longint):longint;

var LM:longint;

begin

LM:=1;

while ((LM mod a)<>0) OR ((LM mod b)<>0) do LM:=LM+1;

LCM:=LM;

end;

begin

assign(fi,'connect.inp');

reset(fi);

assign(fo,'connect.out');

rewrite(fo);

readln(fi,n);

for i:=1 to n do readln(fi,A[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

begin

STR(A[i],S1);

STR(A[j],S2);

Si:='';Sj:='';

B:=LCM(length(S1),length(S2));

for k:=1 to ROUND(B/length(S1)) do Si:=Si+S1;

for k:=1 to ROUND(B/length(S2)) do Sj:=Sj+S2;

if Si<Sj then begin doi:=A[i];A[i]:=A[j];A[j]:=doi end;

end;

for i:=1 to n do write(fo,A[i]);

close(fi); close(fo);

end.

Câu 4:

var n,k,i:longint;

S:ansistring;

S1:string;

fi,fo:text;

begin

assign(fi,'tvh.inp');

reset(fi);

assign(fo,'tvh.out');

rewrite(fo);

read(fi,n); read(fi,k);

S:='';

for i:=1 to n do

begin

STR(i,S1);

S:=S+S1;

end;

write(fo,S[k]);

close(fi);

close(fo);

end.

a) Sửa đề: C/m tứ giác BEHC nội tiếp
Xét tứ giác BEHC có 

\(\widehat{BEC}=\widehat{BHC}\left(=90^0\right)\)

\(\widehat{BEC}\) và \(\widehat{BHC}\) là hai góc cùng nhìn cạnh BC

Do đó: BEHC là tứ giác nội tiếp(Dấu hiệu nhận biết tứ giác nội tiếp)

a) Sửa đề: C/m tứ giác BEHC nội tiếp
Xét tứ giác BEHC có 

$\widehat{BEC}=\widehat{BHC}\left(={90}^0\right)$

$\widehat{BEC}$ và $\widehat{BHC}$ là hai góc cùng nhìn cạnh BC

Do đó: BEHC là tứ giác nội tiếp(Dấu hiệu nhận biết tứ giác nội tiếp)

a) Sửa đề: C/m tứ giác BEHC nội tiếp
Xét tứ giác BEHC có 

ˆBEC=ˆBHC(=900)BEC^=BHC^(=900)

ˆBECBEC^ và ˆBHCBHC^ là hai góc cùng nhìn cạnh BC

Do đó: BEHC là tứ giác nội tiếp(Dấu hiệu nhận biết tứ giác nội tiếp)

Phép nhân hoá:

Ví dụ: Bác gấu đang bảo vệ những chú hươu khỏi đàn sói hung ác

Bông hoa ngã xuống, tàn lụi như đống tro tàn.

VD:Bác gấu nâu đang vội vã tìm thức ăn dự trữ cho kì ngủ đông sắp tới

- Bước sang thế kỉ XVI, triều đình nhà Lê càng suy yếu thì sự tranh chấp giữa các phe phái phong kiến càng diễn ra quyết liệt.

- Mạc Đăng Dung vốn là một võ quan. Lợi dụng xung đột giữa các phe phái, đã tiêu diệt các thế lực đối lập, thâu tóm mọi quyền hành, cương vị như Tể tướng.

- Năm 1527, Mạc Đăng Dung cướp ngôi nhà Lê, lập ra triều Mạc (Bắc triều).

- Năm 1533, một võ quan triều Lê là Nguyễn Kim chạy vào Thanh Hoá, lập một người thuộc dòng dõi nhà Lê lên làm vua, lấy danh nghĩa "phù Lê diệt Mạc", sử cũ gọi là Nam triều để phân biệt với Bắc triều (nhà Mạc ở phía bắc).

=> Cục diện Nam - Bắc triều hình thành.

Bước sang thế kỉ XVI, triều đình nhà Lê càng suy yếu thì sự tranh chấp giữa các phe phái phong kiến càng diễn ra quyết liệt. Mạc Đăng Dung vốn là một võ quan. Lợi dụng xung đột giữa các phe phái, đã tiêu diệt các thế lực đối lập, thâu tóm mọi quyền hành, cương vị như Tể tướng. Năm 1527, Mạc Đăng Dung cướp ngôi nhà Lê, lập ra triều Mạc (Bắc triều). Năm 1533, một võ quan triều Lê là Nguyễn Kim chạy vào Thanh Hoá, lập một người thuộc dòng dõi nhà Lê lên làm vua, lấy danh nghĩa "phù Lê diệt Mạc", sử cũ gọi là Nam triều để phân biệt với Bắc triều (nhà Mạc ở phía bắc).

- Bước sang thế kỉ XVI, triều đình nhà Lê càng suy yếu thì sự tranh chấp giữa các phe phái phong kiến càng diễn ra quyết liệt.

- Mạc Đăng Dung vốn là một võ quan. Lợi dụng xung đột giữa các phe phái, đã tiêu diệt các thế lực đối lập, thâu tóm mọi quyền hành, cương vị như Tể tướng.

- Năm 1527, Mạc Đăng Dung cướp ngôi nhà Lê, lập ra triều Mạc (Bắc triều).

- Năm 1533, một võ quan triều Lê là Nguyễn Kim chạy vào Thanh Hoá, lập một người thuộc dòng dõi nhà Lê lên làm vua, lấy danh nghĩa "phù Lê diệt Mạc", sử cũ gọi là Nam triều để phân biệt với Bắc triều (nhà Mạc ở phía bắc).

=> Cục diện Nam - Bắc triều hình thành.

C

C.75 min

(C) 75 min

⇒M=((x+3)2x2−9−189−x2+(x−3)2x2−9):2x+3

chịu

MEM