diff options
author | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2019-12-15 15:09:13 +0700 |
---|---|---|
committer | Nguyễn Gia Phong <vn.mcsinyx@gmail.com> | 2019-12-15 15:09:13 +0700 |
commit | 9e28e4c7b67c54229df11d355047ac8a88ea1817 (patch) | |
tree | 0d9d40db69613c2c49564a3f1987a005d61f4db3 /tht/B/QG-2014/sample.pas | |
parent | 67393f42f41ab92219deb549f711121c4dab845b (diff) | |
download | cp-9e28e4c7b67c54229df11d355047ac8a88ea1817.tar.gz |
Normalize pathname
Diffstat (limited to 'tht/B/QG-2014/sample.pas')
-rw-r--r-- | tht/B/QG-2014/sample.pas | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tht/B/QG-2014/sample.pas b/tht/B/QG-2014/sample.pas new file mode 100644 index 0000000..c8b5e17 --- /dev/null +++ b/tht/B/QG-2014/sample.pas @@ -0,0 +1,21 @@ +uses dic; + +var + answer1: char; + answer2, answer3, answer4: longint; + +begin + answer1 := get_char_at_pos(4); + writeln('Vi tri thu 4 cua xau can tim la: ', answer1); + + answer2 := count_char('c'); + writeln('So luong ki tu c trong tu can tim la: ', answer2); + + answer3 := count_char('a'); + writeln('So luong ki tu a trong tu can tim la: ', answer3); + + answer4 := count_char('n'); + writeln('So luong ki tu n trong tu can tim la: ', answer4); + + answer('can'); +end. |