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 | |
| | Nguyễn Đức Mạnh | |
| | 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 đề: Nguyễn Đức Mạnh Mon Sep 12, 2022 9:41 pm | |
| | |
| | | Nguyễn Đức Mạnh Khách viếng thăm
| Tiêu đề: Re: Nguyễn Đức Mạnh Wed Sep 14, 2022 3:16 pm | |
| program ct; uses crt; var n,k:longint; C:array [0..100000] of longint; procedure doc; begin assign(input,'SDIV.inp'); assign(output,'SDIV.out'); reset(input); rewrite(output); read(n);
end; function snt(x:longint):boolean; var j:longint; begin if x<2 then exit(false); if x<4 then exit(true); if x>3 then for j:=2 to trunc(sqrt(x)) do if x mod j=0 then exit(false); exit(true); end; procedure uoc(x:longint); var k,i,j,tg:longint; begin
end; procedure xl; var i,j,k,tg:longint; s:int64; begin s:=0; k:=0; for i:=1 to trunc(sqrt(n)) do if n mod i=0 then begin inc(k); c[k]:=i; if i<> n div i then begin inc(k); c[k]:=n div i; end; end; for i:=1 to k-1 do for j:=i+1 to k do if C[i]>C[j] then begin tg:=C[i]; C[i]:=C[j]; C[j]:=tg; end; for i:=1 to k do if snt(c[i]) then s:=s+C[i]; writeln(s); end; begin doc; xl; close(input); close(output); end. |
| | | Nguyễn Đức Mạnh Khách viếng thăm
| Tiêu đề: Re: Nguyễn Đức Mạnh Wed Sep 14, 2022 3:18 pm | |
| program ct; uses crt; var a,n:longint; procedure doc; begin assign(input,'LASTNUM.inp'); assign(output,'LASTNUM.out'); reset(input); rewrite(output); read(a,n);
end; procedure xl; var k,i:longint; begin k:=0; for i:=1 to n do k:=(A*n) mod 10; writeln(k); end; begin doc; xl; close(input); close(output); end.
|
| | | Nguyễn Đức Mạnh Khách viếng thăm
| Tiêu đề: Re: Nguyễn Đức Mạnh Wed Sep 14, 2022 3:27 pm | |
| program ct; uses crt; var n,k:longint; c:array [0..100000] of longint; procedure doc; begin assign(input,'TSNT.inp'); assign(output,'TSNT.out'); reset(input); rewrite(output); read(n);
end; procedure xl; var j,i:longint; begin j:=2; k:=0; while j*j<=n do begin if n mod j=0 then begin inc(k); c[k]:=j; n:=n div j; end else inc(j); end; if n>1 then begin inc(k); c[k]:=n; end; for i:=1 to k do write(C[i],#32);
end; begin doc; xl; close(input); close(output); end.
|
| | | Nguyễn Đức Mạnh Khách viếng thăm
| Tiêu đề: Re: Nguyễn Đức Mạnh Wed Sep 14, 2022 3:31 pm | |
| program ct; uses crt; var n:longint; A,g:array [0..100000] of longint; procedure doc; var i:longint; begin assign(input,'UPSEQ.inp'); assign(output,'UPSEQ.out'); reset(input); rewrite(output); read(n); for i:=1 to n do read(A[i]); end; procedure xl; var i,rmax,c,d:longint; begin rmax:=-trunc(1e9); for i:=1 to n do if A[i-1]<=A[i] then g[i]:=g[i-1]+1 else g[i]:=1; for i:=1 to n do if g[i]>rmax then begin rmax:=g[i]; c:=i; end; for i:=c downto 1 do if G[i]=1 then begin d:=i; break; end; write(rmax); end; begin doc; xl; close(input); close(output); end. |
| | | Nguyễn Đức Mạnh Khách viếng thăm
| Tiêu đề: Re: Nguyễn Đức Mạnh Wed Sep 14, 2022 3:32 pm | |
| program ct; uses math; var A,b,c:array [0..100000] of longint; n,m:longint; f:array [0..100,0..100] of longint; procedure doc; var i:longint; begin assign(input,'XAYCAU.inp'); assign(output,'XAYCAU.out'); reset(input); rewrite(output); read(m,n); for i:=1 to m do read(A[i]); for i:=1 to n do read(b[i]); end; procedure xl; var i,j,k:longint; begin k:=0; for i:=1 to m do for j:=1 to n do if (A[i]=b[j]) and (i<=j) then begin f[i,j]:=f[i-1,j-1]+1; {inc(k); c[k]:=i; inc(k); c[k]:=j; } inc(k); c[k]:=a[i]; end else f[i,j]:=max(f[i-1,j],f[i,j-1]); writeln(f[m,n]); {for i:=1 to n do begin if i mod 2=0 then writeln(c[i-1],#32,c[i]); end;} for i:=1 to k do write(C[i],#32);
end; begin doc; xl; close(input); close(output); end.
|
| | | Sponsored content
| Tiêu đề: Re: Nguyễn Đức Mạnh | |
| |
| | | | Nguyễn Đức Mạnh | |
|
Trang 1 trong tổng số 1 trang | |
Similar topics | |
|
| Permissions in this forum: | Bạn được quyền trả lời bài viết
| |
| |
| |