May 2024 | Mon | Tue | Wed | Thu | Fri | Sat | Sun |
---|
| | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | | | Calendar |
|
Top posting users this week | |
| | Hà Quang Tất Đạt | |
| | |
Tác giả | Thông điệp |
---|
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:29 pm | |
| - Code:
-
const fi = 'b6d4.inp'; fo = 'b6d4.out'; var n,i,res,d : 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; d:=0; for i:=1 to n do if i > res then res:=a[i]; for i:=1 to n do if a[i] = res then d:=d+1; 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 Thu Aug 11, 2022 8:30 pm | |
| - Code:
-
const fi = 'b6d4.inp'; fo = 'b6d4.out'; var n,i,res,d : 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; d:=0; for i:=1 to n do if i > res then res:=a[i]; for i:=1 to n do if a[i] = res then d:=d+1; 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 Thu Aug 11, 2022 8:31 pm | |
| - Code:
-
const fi = 'b4d4.inp'; fo = 'b4d4.out'; var n,i,d : longint; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); d:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if (a[i] mod 2 = 0) and (a[i] mod 3 <> 0) then d:=d+1; 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 Thu Aug 11, 2022 8:31 pm | |
| - Code:
-
const fi = 'b4d4.inp'; fo = 'b4d4.out'; var n,i,d : longint; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); d:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if (a[i] mod 2 = 0) and (a[i] mod 3 <> 0) then d:=d+1; 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 Thu Aug 11, 2022 8:44 pm | |
| - Code:
-
const fi = 'b7d4.inp'; fo = 'b7d4.out'; var n,i,s : longint; tbc: real; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(n); s:=0; for i:=1 to n do read(a[i]); for i:=1 to n do s:=s+a[i]; tbc:=s / n; write(s,#32,tbc); close(input);close(output); end
Được sửa bởi Hà Quang Tất Đạt ngày Thu Aug 11, 2022 9:02 pm; sửa lần 1. | |
| | | 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 9:01 pm | |
| - Code:
-
const fi = 'b8d4.inp'; fo = 'b8d4.out'; var n,i,s,d : longint; tbc:real; a: array[-7..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); read(n); s:=0; d:=0; for i:=1 to n do read(a[i]); for i:=1 to n do s:=s+a[i]; tbc:=s / n; for i:=1 to n do if a[i] >= tbc then inc(d); write(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 Thu Aug 11, 2022 9:30 pm | |
| - Code:
-
const fi = 'b10d4.inp'; fo = 'b10d4.out'; var n,i,s,rmax,rmin,lech : 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]); rmax:=a[i]; rmin:=a[i]; for i:=1 to n do if a[i]>rmax then rmax:=a[i]; for i:=1 to n do if a[i]<rmin then rmin:=a[i]; lech:= rmax - rmin; write(lech); 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 9:40 pm | |
| - Code:
-
const fi = 'b9d4.inp'; fo = 'b9d4.out'; var n,i,k,p : longint; a: array[1..100000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n,k); for i:=1 to n do read(a[i]); p:=0; for i:=1 to n do if a[i]=k then begin write(i); p:=1; break; end; if p=0 then write(-1); 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 Sat Aug 13, 2022 7:10 am | |
| - Code:
-
const fi = 'b16cb.inp'; fo = 'b16cb.out'; var n : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); if (n mod 2 = 0) then write('chan') else write('le'); 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 Sat Aug 13, 2022 7:12 am | |
| - Code:
-
const fi = 'b17cb.inp'; fo = 'b17cb.out'; var n : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); if (n mod 3 = 0) and (n mod 5 <> 0) then write(true) else write(false); 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 Sat Aug 13, 2022 7:14 am | |
| - Code:
-
const fi = 'b18cb.inp'; fo = 'b18cb.out'; var a,b,rmax : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); rmax:=a; if (rmax < b) then rmax:=b; writeln(rmax); 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 Sat Aug 13, 2022 7:16 am | |
| - Code:
-
const fi = 'b19cb.inp'; fo = 'b19cb.out'; var a,b,c,rmin : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c); rmin:=a; if (rmin > b) then rmin:=b; if (rmin > c) then rmin:=c; writeln(rmin); 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 Sat Aug 13, 2022 7:22 am | |
| - Code:
-
const fi = 'b20cb.inp'; fo = 'b20cb.out'; var a,b,c,m,n,p,rmax : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c); m:=a+b; n:=a+c; p:=b+c; rmax:=m; if (rmax < n) then rmax:=n; if (rmax < p) then rmax:=p; writeln(rmax); 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 Sat Aug 13, 2022 7:25 am | |
| - Code:
-
const fi = 'b21cb.inp'; fo = 'b21cb.out'; var a,b,c,m,n,p,rmax : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c); m:=a*10+b; n:=b*10+a; rmax:=m; if (rmax < n) then rmax:=n; writeln(rmax); 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 Sat Aug 13, 2022 7:36 am | |
| - Code:
-
const fi = 'b22cb.inp'; fo = 'b22cb.out'; var a,b,c : longint; x : real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b); if (a=0) then begin if (b=0) then writeln('MULTIPLE') else writeln('NONE'); end else begin x:= (-1.0)*b / a; writeln(x:0:3); 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 Sat Aug 13, 2022 7:48 am | |
| - Code:
-
const fi = 'b24cb.inp'; fo = 'b24cb.out'; var a,b,c : longint; p,s : real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c); if (a+b > c) and (a+c > b) and (b+c > a) then begin p:=(a+b+c) / 2; s:=sqrt(p*(p-a)*(p-b)*(p-c)); writeln(s:0:3); end else begin writeln('NONE'); 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 Sat Aug 13, 2022 8:04 am | |
| - Code:
-
const fi = 'b25cb.inp'; fo = 'b25cb.out'; var x1,y1,x2,y2,r : longint; mi : real; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(x1,x2,y1,y2,r); mi:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)); if (mi < r) then writeln('trong'); if (mi = r) then writeln('tren'); if (mi > r) then writeln('ngoai'); 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 Sat Aug 13, 2022 8:09 am | |
| - Code:
-
const fi = 'b27cb.inp'; fo = 'b27cb.out'; var a,b,c,d,res : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(a,b,c,d); res:=0; if (a > res) and (a mod 2=0) then res:=a; if (b > res) and (b mod 2=0) then res:=b; if (c > res) and (c mod 2=0) then res:=c; if (d > res) and (d mod 2=0) then res:=d; 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 Sat Aug 13, 2022 8:15 am | |
| - Code:
-
const fi = 'b28cb.inp'; fo = 'b28cb.out'; var a,b,c,n,rmax : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; rmax:=a; if b > rmax then rmax:=b; if c > rmax then rmax:=c; writeln(rmax); 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 Sat Aug 13, 2022 8:44 am | |
| - Code:
-
const fi = 'b29cb.inp'; fo = 'b29cb.out'; var a,b,c,n,rmax,t : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; if (a < b) then begin t:=a; a:=b; b:=t; end; if (b < c) then begin t:=b; b:=c; c:=t; end; if (a < b) then begin t:=a; a:=b; b:=t; end; if (b < c) then begin t:=b; b:=c; c:=t; end; n:=a*100+b*10+c; writeln(n); 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 Sat Aug 13, 2022 8:49 am | |
| - Code:
-
const fi = 'b30cb.inp'; fo = 'b30cb.out'; var a,b,c,n,m,q,p,rmin : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=n mod 10; m:=a*10+b; q:=b*10+c; p:=a+10+c; rmin:=m; if q < rmin then rmin:=q; if p < rmin then rmin:=p; writeln(rmin); 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 Sat Aug 13, 2022 4:04 pm | |
| - Code:
-
const fi = 'b32cb.inp'; fo = 'b32cb.out'; var x1,y1,x3,y3,xm,ym : longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(xm,ym); readln(x1,y1); readln(x3,y3); if (xm <= x1) and (xm >= x3) and( ym <= y3) and (ym >= y1) then begin writeln('trong'); end else begin writeln('ngoai'); 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 Sat Aug 13, 2022 8:10 pm | |
| - Code:
-
const fi = 'bai65d5.inp'; fo = 'bai65d5.out'; var n,x,i : longint; a: array[-7..10000] of longint; s: array[-7..10000] 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 begin s[i]:=a[i]+(a[i+1])+(a[i+2]); end; x:= s[0]; for i:=0 to (n) do begin if (x < s[i]) then x := s[i] ; end; writeln(x); 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 Sat Aug 13, 2022 8:46 pm | |
| - Code:
-
const fi = 'b2d5.inp'; fo = 'b2d5.out'; var n,p,i : longint; a: array[-7..10000] of longint; begin assign(input,fi);reset(input); assign(output,fo);rewrite(output); readln(n); for i :=1 to n do read(a[i]); p:=0; for i:=1 to n do if a[i] > a[i+1] then begin p:=1; break; end; if p=0 then write('YES') else write('NO'); 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 Sat Aug 13, 2022 9:08 pm | |
| - Code:
-
uses crt; const fi = 'b3d5.inp'; fo = 'b3d5.out'; var n,i,t : longint; a: array[-7..10000] 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 div 2 do begin t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=t; end; for i:=1 to n do write(a[i],#32); close(input);close(output); end. | |
| | | Sponsored content
| Tiêu đề: Re: Hà Quang Tất Đạt | |
| |
| | | | Hà Quang Tất Đạt | |
|
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |