Найдите номер первой и последней запятой в предложении

@St1111m · Регистрация: 03.12.2013

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

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

@Puporev · 03.12.2013, 20:42

Pascal

uses crt;
var s:string;
    i,i1,ip:byte;
begin
writeln('Введите предложение');
read(s);
i1:=0;
i:=1;
while(i<=length(s))and(i1=0) do
if s[i]=',' then i1:=i
else inc(i);
if i1=0 then
 begin
  write('Нет запятых');
  exit
 end;
writeln('Номер первой запятой=',i1);
ip:=0;
i:=length(s);
while(i>i1)and(ip=0) do
if s[i]=',' then ip:=i
else dec(i);
if ip=0 then
 begin
  write('В предложении одна запятая');
  exit
 end;
writeln('Номер последней запятой=',ip);
end.

@St1111m 0 / 0 / 0 Регистрация: 03.12.2013 Сообщений: 9
		1
	Найдите номер первой и последней запятой в предложении 03.12.2013, 19:48. Показов 3515. Ответов 1 Метки нет (Все метки) 1) Найдите номер первой и последней запятой в предложении, которое вводится с клавиатуры. (Запятых может быть от 0 до бесконечности..) помогите, пожалуйста... 0

	03.12.2013, 20:42

Найдите номер первой и последней запятой в предложении

Решение