Question

Даны натуральное число n, символы s1, …, sn. Подсчитать: сколько раз среди данных символов встречается символ +, и сколько раз символ *

Answer 1

Var n,k1,k2,i:integer;
    s1:char;
Begin
    write('n: ');readln(n);
    For i:=1 to n do
    Begin
      read(s1);
      if s1='+' then inc(k1)
       else if s1='*' then inc(k2);
    End;
    writeln('Символ "+" встречается ',k1);
    writeln('Символ "*" встречается ',k2);
    readln;
End.