diff options
| author | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-06-13 15:18:37 +0700 |
|---|---|---|
| committer | Raphael McSinyx <vn.mcsinyx@gmail.com> | 2017-06-13 15:18:37 +0700 |
| commit | 2b6ce5b49dedf4c6e6f41bd23a94f2f6a76d0a50 (patch) | |
| tree | 1561fb72488a3dba1bab5549320e54d08170f37b /THT/B/QG-2014/guess.pas | |
| parent | 69a50f40bea8f04c2d2b1715dad5ea8c7d6ef507 (diff) | |
| download | cp-2b6ce5b49dedf4c6e6f41bd23a94f2f6a76d0a50.tar.gz | |
Add THT/B/QG-2014
Diffstat (limited to 'THT/B/QG-2014/guess.pas')
| -rw-r--r-- | THT/B/QG-2014/guess.pas | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/THT/B/QG-2014/guess.pas b/THT/B/QG-2014/guess.pas new file mode 100644 index 0000000..cc036f8 --- /dev/null +++ b/THT/B/QG-2014/guess.pas @@ -0,0 +1,17 @@ +uses dic; + +var + s: string = ''; + i: byte; + c: char; + +begin + for i := 1 to 50 do + begin + c := get_char_at_pos(i); + if c = '#' then + answer(s) + else + s := s + c + end +end. |