Предмет: Информатика,
автор: Лианик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.
Интересные вопросы
Предмет: Қазақ тiлi,
автор: aprsvar
Предмет: Физика,
автор: ejik80
Предмет: Физика,
автор: atkini124
Предмет: Литература,
автор: Гольтяпина99