Дана последовательность символов. Подсчитать число вхождений символов «+», «-» , «*»

@dzhioev777 · Регистрация: 06.10.2012

Author24 — интернет-сервис помощи студентам

Дана последовательность из п символов. Подсчитать:
а) сколько раз среди данных символов встречается символ «+» , сколько раз символ «-», символ «*».
б) общее число вхождений символов «+», «-» , «*» в данную последовательность.

@masterpiece · 08.11.2012, 21:05

Pascal

var
  s:string;
  sum,p,m,y,i,d:integer;
  begin
  writeln('Введиет символы');
  readln(s);
  d:=length(s);
  i:=1;
  for i:=1 to d do
    begin
      if  s[i] = '+' then inc(p);
      if  s[i] = '-' then inc(m);
      if  s[i] = '*' then inc(y);
    end;
  sum:=p+m+y;
  writeln('+ = ',p);
  writeln('- = ',m);
  writeln('* = ',y);
  writeln('sum = ',sum);
  readln;
  end.

@dzhioev777 0 / 0 / 0 Регистрация: 06.10.2012 Сообщений: 36
		1
	Дана последовательность символов. Подсчитать число вхождений символов «+», «-» , «» 08.11.2012, 17:58. Показов* 2686. Ответов 1 Метки нет (Все метки) Дана последовательность из п символов. Подсчитать: а) сколько раз среди данных символов встречается символ «+» , сколько раз символ «-», символ «». б) общее число вхождений символов «+», «-» , «» в данную последовательность. 0

	08.11.2012, 21:05

Дана последовательность символов. Подсчитать число вхождений символов «+», «-» , «*»

Решение