Предмет: Информатика,
автор: Лианик16
написать программу,каторая выделит все запятые из строки st начиная с позиции р
Ответы
Автор ответа:
0
{Программа на 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.
Похожие вопросы
Предмет: География,
автор: filatovan41
Предмет: Математика,
автор: dmitry975378
Предмет: Окружающий мир,
автор: san95045
Предмет: Математика,
автор: КОШЕЧКА800
Предмет: Математика,
автор: cnopca