Дана последовательность из n символов.

@Линочка · Регистрация: 16.09.2010

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

@Puporev · 11.10.2010, 18:34

Pascal

var c:char;
    kp,kz,sm:integer;
begin
writeln('Введите последовательность символов, окончание ввода 0:');
writeln('После окончания ввода нажмите Enter');
kp:=0;kz:=0;sm:=0;
repeat
read(c);
if c='+' then kp:=kp+1
else if c='*' then kz:=kz+1
else if c in ['+','-','*'] then sm:=sm+1;
until c='0';
readln;
writeln('Количество символов + =',kp);
writeln('Количество символов * =',kz);
writeln('Количество символов +-* =',sm);
readln
end.

@Линочка 0 / 0 / 0 Регистрация: 16.09.2010 Сообщений: 9
		1
	Дана последовательность из n символов. 11.10.2010, 18:18. Просмотров 2729. Ответов 1 Метки нет (Все метки) Дана последовательность из n символов. Подсчитать: 1) сколько раз среди данных символов встречается символ + и сколько раз - символ . 2) общее число вхождений символов +, -, , в данную последовательность. 0

Опции темы

Дана последовательность из n символов.

Решение