Đỗ Thái Sơn

Tiêu đề: Đỗ Thái Sơn Fri Jun 24, 2022 7:50 pm

Nơi nộp bài của em Đỗ Thái Sơn

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c,d,e:longint;
p,s,p1,p2,s1,s2:real;
begin;
readln(a,b,c,d,e);
p1:=(b+c+e)/2;
s1:=sqrt(p1*(p1-b)*(p1-c)*(p1-e));
p2:=(a+e+d)/2;
s2:=sqrt(p2*(p2-a)*(p2-e)*(p2-d));
s:=s1+s2;
write(s:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
x,y:real;
begin;
y:=(a-1)*(b-1);
x:=a*(b-1)+b*(a-1);
write(x,y:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
x,y:real;
begin;
x := 2*(a-2)+(2*b);
y := (a-2)*(b-2);
write(x,y:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
x,d,y,m,p,n,b1,b2,a1,a2:real;
begin;
readln(x,y,d,b1,b2,a1,a2);
d :=n*n-4*m*p;
b1 :=-n+sqrt(d)/2*m;
b2 :=-n-sqrt(d)/2*m;
a1 :=(2+y)/(b1-2);
a2 :=(2+y)/(b2-2);
write(a1,a2,b1,b2:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
x,d,y,m,p,n,b1,b2,a1,a2:real;
begin;
readln(x,y);
d :=n*n-4*m*p;
b1 :=(-n+sqrt(d))/2*m;
b2 :=(-n-sqrt(d))/2*m;
a1 :=(2+y)/(b1-2);
a2 :=(2+y)/(b2-2);
write(a1,a2,b1,b2:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
x,d,y,m,p,n,b1,b2,a1,a2:real;
begin;
readln(x,y);
m=-2
n=(4+x)
p=2*y+2*x
d :=n*n-4*m*p;
b1 :=(-n+sqrt(d))/2*m;
b2 :=(-n-sqrt(d))/2*m;
a1 :=2+y/(b1-2);
a2 :=2+y/(b2-2);
write(a1,a2,b1,b2:0:2);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var n:longint;
s,a,b:longint;
begin;
readln(n);
b:=n mod 10;
a:=n div 10;
s:= a+b;
write(s);
end. =

Tổng số bài gửi : 113 Join date : 08/06/2022

var n:longint;
a,b,c,s:longint;
begin;
readln(n);
a:= n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
s:=a+b+c;
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var n:longint;
a,b,c,d,s:longint;
begin;
readln(n);
a:= n div 1000;
b:=(n div 100) mod 10;
c:=(n mod 100) div 10;
d:=n mod 10;
s:=a*b*c*d;
write(s)
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var n:longint;
p,q,s,a,b,c,d,e,f:longint;
begin;
readln(n);
a:=n div 100000;
b:=(n div 10000) mod 10;
c:=(n div 1000) mod 10;
d:=(n mod 100) div 10;
e:=(n mod 1000) div 100;
f:=n mod 10;
p:=a+b+c;
q:=d+e+f;
s:=p+q;
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var x:longint;
a,b,c:longint;
begin;
readln(x);
a:=x div 3600;
b:=x div 60;
c:=x mod 60;
write(a,b,c);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c:longint;
t:longint;
begin;
readln(a,b,c);
t:=a*3600+b*60;
write(t);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a:longint;
begin
readln(a);
if (a mod 2=0)then
write(a,'la so chan')
else
if (a mod 2=1)then
write(a,'la so le');
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a:longint;
s:longint;
begin
readln(a);
if (a mod 3=0)then
write(s=2*a+1)
else
if (a mod 3=1)then
write(s=3*a)
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var x,y:longint;
s:real;
begin
readln(x,y);
if (x>0) and (y>0)then
s:=(sqr(x)+sqr(y))/(x+y)
else
s:=abs(x+y);
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var x,y:longint;
s:real;
begin
readln(x,y);
if (x>0) and (y>0)then
s:=(sqr(x)+sqr(y))/(x+y)
else
s:=abs(x+y);
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c:longint;
begin
readln(a,b,c);
if (a+b>c) and (b+c>a) and (a+c>b)then
write(a,b,c,'la 3 canh tam giac')
else
write(a,b,c,'khong la ba canh tam giac');
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b:longint;
rmax:longint;
begin
readln(a,b);
if a>b then
rmax:=a
else
rmax:=b;
write(rmax);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c:longint;
s:real;
begin;
readln(s);
if (a>b and c) then
s:=sqr(a)+sqr(b)/sqr(c)
else
s:=sqr(a)+sqr(b)+sqr(c)/(c+b);
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var x,y:longint;
begin;
readln(x,y);
if(x mod 2=0)then
x:=x*2;
y:=y-x;
if(x mod 2=1)then
x:=x+1;
y:=y*2;
write(x,y);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c,d:longint;
rmax:longint;
begin;
readln(a,b,c,d);
rmax:=a;
if rmax<b then
rmax:=b;
if rmax<c then
rmax:=c;
if rmax<d then
rmax:=d;
write(rmax);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c:longint;
rmin:longint;
begin;
readln(a,b,c);
rmin:=a;
if rmin>b then
rmin:=b;
if rmin>c then
rmin:=c;
write(rmin);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c:longint;
s,p:real;
begin;
readln(a,b,c);
if ((a+b>c) and (a+c>b) and (b+c>a)) then
begin
p:=0.5*(a+b+c);
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write(s:0:2);
end
else
write(-1);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

Code:: var x1,y1,x2,y2,x3,y3,a,b,c:longint;
d1,d2,d3,p,s:real;
begin
readln(x1,y1,x2,y2,x3,y3);
d1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
d2:=sqrt(sqr(x3-x1)+sqr(y3-y1));
d3:=sqrt(sqr(x3-x2)+sqr(y3-y2));

if (d1+d2>d3) and (d1+d3>d2) and (d2+d3>d1) then
begin
p:=0.5*(d1+d2+d3);
s:=sqrt(p*(p-d1)*(p-d2)*(p-d3));
write(s:0:2);
end
else
write(-1);
end.

» Nguyễn Quốc Thái Sơn
» Phùng Thái Dương
» Giới thiệu về Hệ sinh thái số IELP