Nguyễn Trung Dũng

Tiêu đề: Nguyễn Trung Dũng Fri Jun 24, 2022 7:52 pm

Nơi nộp bài của Nguyễn Trung Dũng

Tiêu đề: Re: Nguyễn Trung Dũng Fri Jun 24, 2022 7:55 pm

Code:: var x1,y1,x2,y2,x3,y3:longint;
p1,p2,s2,s1,x4,y4,d1,d2,d3,d4,d5: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));
x4:=(x3+x1)/2;
y4:=(y3+y1)/2;
d4:=1/2*d2;
d5:=sqrt(sqr(d1)+sqr(d4));
p1:=(d1+d4+d5)/2;
s1:=sqrt(p1*(p1-d1)*(p1-d2)*(p1-d3));
p2:=(d3+d4+d5)/2;
s2:=sqrt(p2*(p2-d3)*(p2-d4)*(p2-d5));
write(s1,#32,s2)
end

Tiêu đề: Re: Nguyễn Trung Dũng Fri Jun 24, 2022 7:56 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Fri Jun 24, 2022 8:27 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Fri Jun 24, 2022 8:35 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Fri Jun 24, 2022 9:23 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 8:04 pm

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

.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 8:14 pm

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.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 8:26 pm

Code:: 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.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 8:49 pm

Code:: var n:longint;
p,q,a,b,c,d,e,f,s: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.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 9:07 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jun 29, 2022 9:16 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Sat Jul 02, 2022 3:12 pm

Code:: var a1,b1,c1,a2,b2,c2,t1,t2:longint;
t3:longint;
begin
readln(a1,b1,c1,a2,b2,c2);
t1:=a1*3600+b1*60+c1;
t2:=a2*3600+b2*60+c2;
t3:=t2-t1;
write(t3);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Sat Jul 02, 2022 3:13 pm

Code:: var
a1,b1,c1,a2,b2,c2,a3,b3,c3,t1,t2,x:longint;
begin
ReadLn(a1,b1,c1,a2,b2,c2);
t1:=a1*3600+b1*60+c1;
t2:=a2*3000+b2*60+c2;
x:=t1-t2;
a3:=x div 3600;
x:=x mod 3600;
b3:=x div 60;
c3:=x mod 60;
write(a3,#32,b3,#32,c3);
end.

Tiêu đề: Re: Nguyễn Trung Dũng Sun Jul 03, 2022 9:07 am

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

Tiêu đề: Re: Nguyễn Trung Dũng Sun Jul 03, 2022 9:16 am

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

Tiêu đề: Re: Nguyễn Trung Dũng Sun Jul 03, 2022 9:36 am

Code:: 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.

Tiêu đề: Re: Nguyễn Trung Dũng Sun Jul 03, 2022 9:57 am

Code:: var n,m:longint;
p:real;
begin
readln(n,m);
if (n>m) then
p := sqr(n)+m+1
else
if (m=n) then
p:=exp(m)+2
else
if (n<m) then
p:=sqr(n)+sqr(m)
write(p)
end.

Tiêu đề: Re: Nguyễn Trung Dũng Sun Jul 03, 2022 10:27 am

Code:: 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 3 canh tam giac');
end.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 7:49 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 8:12 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 8:22 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 8:27 pm

Code:: var a,b,c,d,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.

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 8:47 pm

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

Tiêu đề: Re: Nguyễn Trung Dũng Wed Jul 06, 2022 9:13 pm

Code:: var x1,y1,x2,y2,x3,y3:longint;
d1,d2,d3,s,p:real;
begin
readln(x1,d1,x2,d2,x3,y3);
d1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
d2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if (d1+d2>d3) and (d2+d3>d1) and (d3+d1>d2) then
begin
p:=(d1+d2+d3)/2;
s:=sqrt(p*(p-d1)*(p-d2)*(p-d3));
write(s:0:2);
end
else
write(-1);
end.

» Nguyễn Đức Dũng 13/11
» Nguyễn Đức Dũng
» Nguyễn Tiến Dũng
» Bài giữa kì -Nguyễn Tiến Dũng
» Nguyễn Trung Hiếu