diff options
Diffstat (limited to 'THT/B/QG-2014/sample.pas')
-rw-r--r-- | THT/B/QG-2014/sample.pas | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/THT/B/QG-2014/sample.pas b/THT/B/QG-2014/sample.pas deleted file mode 100644 index c8b5e17..0000000 --- a/THT/B/QG-2014/sample.pas +++ /dev/null @@ -1,21 +0,0 @@ -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. |