From 2b6ce5b49dedf4c6e6f41bd23a94f2f6a76d0a50 Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Tue, 13 Jun 2017 15:18:37 +0700 Subject: Add THT/B/QG-2014 --- THT/B/QG-2014/sample.pas | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100755 THT/B/QG-2014/sample.pas (limited to 'THT/B/QG-2014/sample.pas') diff --git a/THT/B/QG-2014/sample.pas b/THT/B/QG-2014/sample.pas new file mode 100755 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. -- cgit 1.4.1