Написать программы по следующим условиям: Для заданного символа определить, сколько раз...

Question

Написать программы по следующим условиям: Для заданного символа определить, сколько раз он встречается во введённом тексте (двумя способами: с циклом For и с циклом Repeat).

Answer 1

var s: string;

c: char;

i, counter: integer;

begin

   s := 'abcaabaacd';

   c := 'a';

   

   // For

   for i := 1 to Length(s) do

       if s[i] = c then

           inc(counter);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

   

   // Repeat

   counter := 0;

   i := 1;

   repeat

       if s[i] = c then

           inc(counter);

       inc(i);

   until i = Length(s);

   writeln('"', c, '" встречается в строке "', s, '" ', counter, ' раз');

end.