| Nguyễn Quốc Thái Sơn | |
|
|
|
Tác giả | Thông điệp |
---|
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:53 pm | |
| var a,b,x1,y1,x2,y2,dab:real; begin readln(x1,y1,x2,y2); dab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); write(dab:0:3); end. | |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:54 pm | |
| - Code:
-
var a,b,c:longint; s,p:real; begin readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); write(2*p:0:2,#32,s:0:2); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:56 pm | |
| var a,b,c,x1,y1,x2,y2,x3,y3:longint; dab,dac,dbc:real; begin readln(x1,y1,x2,y2,x3,y3); dab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); dac:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1)); dbc:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)); write(dab:0:2,#32,dac:0:2,#32,dbc:0:2); end. | |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:57 pm | |
| - Code:
-
var a,b:longint; x,y:longint; begin readln(a,b); x:=b*2+(a-2)*2; y:=a*b-x; write(x,#32,y); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:58 pm | |
| - Code:
-
var n,i:longint; s:int64; begin readln(n); s:=0; for i:=1 to n do s:=s+i; write(s); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 4:59 pm | |
| - Code:
-
var n,i:longint; s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+i*i; write(s); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 5:00 pm | |
| - Code:
-
var n,i:longint; s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+2*i-1; write(s); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 5:02 pm | |
| - Code:
-
var n,i:longint; s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+i*i*i; write(s); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 5:03 pm | |
| var n,i:longint; s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+sqr(i)*sqr(i)*i; write(s); end. | |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Sun Aug 14, 2022 5:04 pm | |
| - Code:
-
var n,i:longint; s:longint; begin readln(n); s:=0; for i:=1 to n do s:=s+i*(i+1); write(s); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:02 pm | |
| - Code:
-
uses math; var a:array[-7..100000]of longint; i,n,res:longint; begin readln(n); res:=a[1]+a[2]+a[3]; for i:=2 to n-2 do res:=max(res,a[i]+a[i+1]+a[i+2]); write(res); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:02 pm | |
| - Code:
-
uses math; var a:array[-7..100000]of longint; n,i,p:longint; begin readln(n); for i:=1 to n do p:=1; for i:=1 to n do if a[i]>a[i+1] then begin p:=0; break; end; if p=1 then write(true) else write(false); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:03 pm | |
| - Code:
-
uses math; var a:array[-7..100000]of int64; f:longint; begin readln(f); f[48]=51255968 f[30]=832040 f[100]=3736710778780434371 write(f); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:04 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; n,i,k:real; begin readln(a); for i:=1 to n do if a[1]mod k:=0 then break=1 else break=0 write(break); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:04 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; rmax,a,b,a:longint; begin readln(a); a:array[-1..3000,-1..3000]:= m*n; for i:=1 to n do rmax:=a; if rmax < b then rmax:=b; if rmax <= m*n then write(rmax); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:05 pm | |
| - Code:
-
var a:array[-1.3000,-1..3000]of longint; rmin,a,b,c:longint; begin readln(a); for i:=1 to n do rmin:=a; if rmin > b then rmin:=b; if rmax <= m*n then c:=1 else c:=0 write(c); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:05 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; m,n,rmax1,rmax2,rmax3:longint; begin readln(m,n); n:=3; if rmax1,ramx2 ,rmax3 then write(ramx1,rmax2,rmax3); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:06 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; rmax1,rmax2,rmax3,rmax4,rmax5:longint; begin readln(a); for i:=1 to n do if rmax1,ramx2,rmax3,rmax4,rmax5 then write(rmax1,rmax2,rmax3,rmax4,rmax5); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:07 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; a,n,m:longitn; begin readln(a); for i:=1 to n do a:=n+m; write(m); end.
| |
|
| |
sondepzai
Tổng số bài gửi : 73 Join date : 16/06/2022
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn Fri Aug 19, 2022 4:07 pm | |
| - Code:
-
var a:array[-1..3000,-1..3000]of longint; p,n:longint; begin readln(n); for i:=1 to n do p:=0; if a:=sqrt[a] then p:=a; write(p); end.
| |
|
| |
Sponsored content
| Tiêu đề: Re: Nguyễn Quốc Thái Sơn | |
| |
|
| |
| Nguyễn Quốc Thái Sơn | |
|