99999999999999999999999999999999999999+999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
PM
99999999999999999999999999999999999999
+1243333333333333333333333333=
nếu ai trả lơi đúng cho cái llai
2
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;
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.
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
2 tháng 4 2021
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)
DT
Đỗ Thanh Hải
CTVVIP
14 tháng 3 2021
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
KD
28 tháng 2 2021
- 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.
28 tháng 2 2021
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).
tính thế thì cả máy tính cũng ko tính đc
kết quả là 1e+102