Работа со строками

@jiutbuhehko · Регистрация: 17.09.2013

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

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

@Soniyagfto · 25.11.2013, 17:04

Pascal

program test1;
var s:string;
i,k,k1:integer;
begin
writeln ('Введите строку');
readln (s);
for i:=1 to length(s) do begin
if s[i]='+' then  
inc(k);
if s[i]='*' then
inc(k1);
end;
if (k>0)or(k1>0) then writeln ('вхождений символа "+"',' ',k,' ','Вхождений символа "*"',' ',k1)
else writeln ('Замен не обнаружено!');
readln;
end.

Pascal

program test2;
var s:string;
i,k:integer;
begin
writeln ('Введите строку');
readln (s);
for i:=1 to length(s) do begin
if ((s[i]='+')or(s[i]='*')or(s[i]='/')or(s[i]='-'))
then inc(k);
end;
if (k>0) then writeln ('Общее число вхождений, символов +,-,/,*',' ',k)
else writeln ('Замен не обнаружено!');
readln;
end.

@jiutbuhehko 0 / 0 / 2 Регистрация: 17.09.2013 Сообщений: 56
		1
	Работа со строками 25.11.2013, 16:35. Показов 1038. Ответов 1 Метки нет (Все метки) Данный рядок символов S. Посчитать: 1) сколько раз среди данных символов встречается + и сколько раз* 2) общее число вхождений +,-,*,/ 0

	25.11.2013, 17:04

Опции темы

Работа со строками

Решение