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