Строка: Определите сколько раз среди символов строки встречается символ + и сколько раз символ * .

@Skywoker95_95 · Регистрация: 30.09.2012

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

16 Дана строка символов. Определите сколько раз среди символов строки встречается символ + и сколько раз символ * . Использовать разные способы поиска/
правильно составил?Если нет, то напишите правильную прграмму плиззз!))

Pascal

Var S:String;  
k,q:integer;
Begin;
readln(S);
S:='**99+65++*';
k:=Pos('+',S);
q:=Pos('*',S);
Writeln (k,q);
End.

Заранее спасибо!!!!!))))

@Федя Форточкин · 12.03.2013, 15:49

ну во-первых, зачем ты сначала считываешь значение S, а потом присваиваешь своё? а во-вторых, ты вместо количества раз встреч данных символов выводишь их позицию.

@Skywoker95_95 · 12.03.2013, 15:50 **[ТС]**

Можешьнаписать как нужно?)

@Федя Форточкин · 12.03.2013, 15:54

вот правильное решение

Pascal

var
S:string;
i,b,j:byte;
begin
b:=0;
j:=0;
read(S);
for i:=0 to length(S) do
begin
if S[i]='*' then
b:=b+1;
if S[i]='+' then
j:=j+1;
end;
writeln('Количество символов *: ' + IntToStr(b));
writeln('Количество символов +: ' + IntToStr(j));
end.

@Федя Форточкин 69 / 83 / 33 Регистрация: 09.12.2012 Сообщений: 222 Записей в блоге: 3
	12.03.2013, 15:49	2
	ну во-первых, зачем ты сначала считываешь значение S, а потом присваиваешь своё? а во-вторых, ты вместо количества раз встреч данных символов выводишь их позицию. 0

@Skywoker95_95 0 / 0 / 0 Регистрация: 30.09.2012 Сообщений: 20
	12.03.2013, 15:50 [ТС]	3
	Можешьнаписать как нужно?) 0

	12.03.2013, 15:54