Tổng số bài gửi : 152 Join date : 23/04/2022 Age : 41 Đến từ : THPT Chuyên Nguyễn Tất Thành - Yên Bái
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
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
Admin and nguyentrungdungqt like this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
Admin and nguyentrungdungqt like this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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
.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
Admin and nguyentrungdungqt like this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
Admin and nguyentrungdungqt like this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.
nguyentrungdungqt likes this post
nguyentrungdungqt
Tổng số bài gửi : 153 Join date : 08/06/2022 Age : 14 Đến từ : yên bái
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.