Question

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

Answer 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('Первая: ',t); end;
writeln('Последняя: ',t);
readln;
end.