Найдите номер первой и последней запятой в предложении, которое вводится с клавиатуры. (Запятых может быть от 0 до бесконечности.. ) помогите, пожалуйста
Answers & Comments
ZaharovVasya
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.
Answers & Comments
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.