написать программу, каторая выделит все запятые из строки st начиная с позиции р

Question

Информатика

Василиска

11 сентября, 09:36

написать программу, каторая выделит все запятые из строки st начиная с позиции р

+1

Ответы (1)

Знаете ответ на вопрос?

Борюха · Answer 1

{Программа на Free Pascal}

Var st:string;

z, p, i:integer;

begin

z:=0;

readln (st) ; {Считываем строку}

read (p) ; {Считываем позию}

for i:=p to length (st) do if (st[i] = ',') then inc (z) ; {Пробегаемся по строке с позиции p и ищем,}

writeln (z) ; {Выводим кол-во найденых запятых}

end.