blob: c8b5e17f65ec482b5a8387876ccc542f2b1577a4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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.
|
