This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
var k, n, w, i, tk: longint; | |
begin | |
read(k, n, w); | |
i := 1; tk := k; | |
while i <> w+1 do begin | |
write('k: ', k, ' '); | |
write('n: ', n, ' '); | |
write('w: ', w, ' '); | |
write('i: ', i); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
const fi = 'CLAN.INP'; | |
fo = 'CLAN.OUT'; | |
var f, g: text; | |
a: array[1..100000] of longint; | |
c, i, x, n: longint; | |
procedure rf; | |
begin | |
fillchar(a, sizeof(a), 0); | |
assign(f, fi); reset(f); read(f, n); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
chenpt.pas - Chen phan tu tai vi tri da cho | |
} | |
const fi = 'CHENPT.INP'; | |
fo = 'CHENPT.OUT'; | |
MAX_ARR = 10000; | |
var f: text; | |
i, n, m, k: longint; | |
a: array[1..MAX_ARR] of longint; | |
dachen: boolean; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
I use Keyoxide[0] for proving online identity. Use the key below to prove that it's me. | |
OpenPGP key: openpgp4fpr:e9a676dfc223447b24d087f966cb51279c8ca047 | |
My Keyoxide profile: https://keyoxide.org/hkp/E9A676DFC223447B24D087F966CB51279C8CA047 | |
[0]: keyoxide.org |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# This file contains a list of almost all URL shorteners services out there, | |
# whether alive or dead. | |
# Note that this doesn't include URL shorteners used internally by companies | |
# and doesn't provide a way for users to create and shorten an URL | |
# (For example: Twitter with t.co, Google with g.co, etc.) | |
# Added by Dang Hoang Tuan (31/07/2022) | |
t.ly | |
# Added by Dang Hoang Tuan (01/06/2022) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @namespace EasySubmit | |
// @name EasySubmit | |
// @author Dang Hoang Tuan (tsuki) | |
// @description Submit a HN submission right in the site that you're in | |
// @version 1 | |
// @license MIT | |
// @exclude https://news.ycombinator.com/* | |
// ==/UserScript== |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program b1dc; | |
uses crt; | |
var i: Integer; | |
s: Real; | |
begin | |
for i := 1 to 20 do | |
s := s+(1/i); | |
WriteLn(s:4); | |
readln; | |
end. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
program exp; | |
uses crt; | |
var i, n, s: longint; | |
begin | |
clrscr; | |
write('N = '); readln(n); | |
s := 0; | |
for i := 1 to n div 2 do |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name UniqueStar | |
// @version 1 | |
// @grant none | |
// @author Dang Hoang Tuan | |
// ==/UserScript== | |
function getRandomChar() { | |
return Math.floor(Math.random() * (90 - 65 + 1) + 65); | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ AUTO GENERATED BY merge.py. DO NOT EDIT. } | |
{ START OF next_prime.pas } | |
program b5; { Program name here } | |
uses crt; | |
var i,j,n: integer; { Variables here } | |
nt: boolean; | |
begin |
NewerOlder