22 lines
469 B
Plaintext
22 lines
469 B
Plaintext
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.
|