From 9e28e4c7b67c54229df11d355047ac8a88ea1817 Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sun, 15 Dec 2019 15:09:13 +0700 Subject: Normalize pathname --- THT/B/QG-2014/sample.pas | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 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 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. -- cgit 1.4.1