Найдите номер первой и заключительней запятой в предложении, которое вводится с

Найдите номер первой и заключительней запятой в предложении, которое вводится с клавиатуры. (Запятых может быть от 0 до бесконечности.. ) помогите, пожалуйста

Задать свой вопрос
1 ответ
Var a.t.i:integer; s:string;
begin
readln(s); a:=0;
for i:=1 ti length(s) do
if s[i]=',' then begin
inc(a); t:=i;
if a=1 then writeln('1-ая: ',t); end;
writeln('Заключительная: ',t);
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт