| Hà Quang Tất Đạt | |
|
|
|
Tác giả | Thông điệp |
---|
Admin Admin
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 đề: Hà Quang Tất Đạt Tue Aug 02, 2022 10:01 pm | |
| Nơi nộp bài của Hà Quang Tất Đạt | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:22 am | |
| - Code:
-
uses crt ; const fi = 'b1d1.inp'; fo = 'b1d1.out'; var x1,x2,y1,y2,ab : longint; x,y:int64; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(x1,y1); readln(x2,y2); x:=(x2-x1)*(x2-x1); y:=(y2-y1)*(y2-y1); ab:=sqrt(x+y); writeln(ab); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:23 am | |
| - Code:
-
const fi = 'b2d1.inp'; fo = 'b2d1.out'; var a,b,c,p,cv : longint; s : real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c); cv:=a+b+c; p:=(a+b+c) div 2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(cv:0:3); writeln(s:0:3); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:23 am | |
| - Code:
-
uses crt ; const fi = 'b3d1.inp'; fo = 'b3d1.out'; var x1,x2,y1,y2,y3,x3 :longint; ab,ac,bc : real; x,y:int64; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(x1,y1); readln(x2,y2); readln(x3,y3); ab:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); bc:=sqrt((x3-x2)*(x3-x2)+(y3-y2)*(y3-y2)); ac:=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1)); writeln(ab:0:3); writeln(bc:0:3); writeln(ac:0:3); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:23 am | |
| - Code:
-
const fi = 'b4d1.inp'; fo = 'b4d1.out'; var a,b,xanh,vang,kt : longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(a,b); kt:=a*b; vang:=(a-2)*(b-2); xanh:=kt-vang; writeln(kt); writeln(vang); writeln(xanh); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:24 am | |
| - Code:
-
const fi = 'b6d1.inp'; fo = 'b6d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; for i:=1 to n do begin s:= s+i*i; end; writeln(s); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:24 am | |
| - Code:
-
const fi = 'b7d1.inp'; fo = 'b7d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; while i <= 2*n-1 do begin s:= s+i; i:=i+2; end; writeln(s); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:24 am | |
| - Code:
-
const fi = 'b8d1.inp'; fo = 'b8d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; for i:=1 to n do begin s:= s+i*i*i; // i:=i+1; end; writeln(s); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:25 am | |
| - Code:
-
const fi = 'b5d1.inp'; fo = 'b5d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; while i <= n do begin s:= s+i; i:=i+1; end; writeln(s); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:26 am | |
| - Code:
-
const fi = 'b9d1.inp'; fo = 'b9d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; for i:=1 to n do begin s:= s+i*i*i*i*i; // i:=i+1; end; writeln(s); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:26 am | |
| - Code:
-
const fi = 'b10d1.inp'; fo = 'b10d1.out'; var n,i,s: longint; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; for i:=1 to n*(n+1) do begin s:= s+i*(i+1); // i:=i+1; end; writeln(s); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:27 am | |
| - Code:
-
const fi = 'b11d1.inp'; fo = 'b11d1.out'; var n,i: longint; s : real; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; while i<=n do begin s:= s+ 1/(i*(i+1)); i:=i+1; end; writeln(s:0:3); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:27 am | |
| - Code:
-
const fi = 'b12d1.inp'; fo = 'b12d1.out'; var n,i: longint; s : real; begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(n); s:=0; i:=1; while i<= n do begin s:=s+1/(i*(i+1)*(i+2)); i:=i+1; end; writeln(s:0:3); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:29 am | |
| - Code:
-
uses math; const fi = 'btb2.inp'; fo = 'btb2.out'; var m,n,k,i,d : longint; function nt(u:longint) : boolean; var j : longint; begin if u<= 1 then exit (false); for j:=2 to trunc(sqrt(u)) do
if u mod j = 0 then exit(false);
exit(true); end; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(m,n,k); d:=0; for i:=1 to min(m,n) do if (m mod i = 0) and (n mod i = 0) then if i >= k then begin nt(i); d:=d+1; end; writeln(d); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:30 am | |
| - Code:
-
const fi = 'bt2d2.inp'; fo = 'bt2d2.out'; var m,i: longint; function nt(u:longint) : boolean; var j : longint; begin if u<= 1 then exit (false); for j:=2 to trunc(sqrt(u)) do if u mod j = 0 then exit(false); exit(true); end;
begin assign (input,fi) ;reset(input); assign (output,fo);rewrite(output); readln(m); for i:=2 to (m-2) do begin if nt(i) and nt(m-i) then begin writeln(i,#32,'+',#32,m-i); end end; close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 9:51 am | |
| - Code:
-
uses crt; const fi = 'b1d3.inp'; fo = 'b1d3.out'; var i : longint; s: real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); s:=0; i:=1; while (1/i >= 0.001) do begin s:=s + 1/i; i:=i+1; end; writeln(s:2:3); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 10:25 am | |
| - Code:
-
uses crt; const fi = 'b1d3.inp'; fo = 'b1d3.out'; var i : longint; s: real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); s:=0; i:=1; while (1/i >= 0.001) do begin s:=s + 1/i; i:=i+1; end; writeln(s:2:3); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 10:26 am | |
| - Code:
-
uses math; const fi = 'b2d3c1.inp'; fo = 'b2d3c1.out'; var a,b,i : longint; res : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); for i:=1 to min(a,b) do if (a mod i=0) and (b mod i=0) then res := max(res,i); writeln(res); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 10:26 am | |
| - Code:
-
uses math; const fi = 'b2d3c2.inp'; fo = 'b2d3c2.out'; var a,b,i,p : longint; res : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); res:=0; i:=1; p:= min(a,b); while i<= p do begin if (a mod i=0) and (b mod i=0) then res := max(res,i); i:=i+1; end; writeln(res); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 10:26 am | |
| - Code:
-
uses math; const fi = 'b2d3c3.inp'; fo = 'b2d3c3.out'; var a,b : longint; res : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); while not(a=b) do begin if a>b then a:=a-b; if a<b then b:=b-a; end; writeln(a); close(input);close(output); end.
| |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Tue Aug 09, 2022 10:27 am | |
| - Code:
-
ses math; const fi = 'b2d3c4.inp'; fo = 'b2d3c4.out'; var a,b,r : longint;
begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); while b>0 do begin
r:=a mod b; a:=b; b:=r;
end; writeln(a);
close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 11, 2022 7:57 pm | |
| - Code:
-
const fi = 'b3d4.inp'; fo = 'b3d4.out'; var n,i : longint; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if sqrt(a[i]) = trunc(sqrt(a[i])) then write(a[i],#32); close(input);close(output); end. | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 11, 2022 7:58 pm | |
| - Code:
-
[code]const fi = 'b2d4.inp'; fo = 'b2d4.out'; var n,i : longint; a: array[1..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2 = 0 then writeln(a[i]); close(input);close(output); end. [/code] | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 11, 2022 7:58 pm | |
| - Code:
-
[code]const fi = 'b2d4.inp'; fo = 'b2d4.out'; var n,i : longint; a: array[1..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 2 = 0 then writeln(i,#32); close(input);close(output); end. [/code] | |
|
| |
Hà Quang Tất Đạt
Tổng số bài gửi : 131 Join date : 05/08/2022
| Tiêu đề: Re: Hà Quang Tất Đạt Thu Aug 11, 2022 8:21 pm | |
| - Code:
-
const fi = 'b5d4.inp'; fo = 'b5d4.out'; var n,i,res : longint; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); for i:=1 to n do read(a[i]); res:=i; for i:=1 to n do if i < res then res:=a[i]; writeln(res); close(input);close(output); end.
| |
|
| |
Sponsored content
| Tiêu đề: Re: Hà Quang Tất Đạt | |
| |
|
| |
| Hà Quang Tất Đạt | |
|