Найдите ошибки пж Паскальprocedure fn(s:string);var i:integer;beginreadln(s);for i to...

Question

Найдите ошибки пж Паскальprocedure fn(s:string);var i:integer;beginreadln(s);for i to length(s) dobeginif copy(s,i,5)='минус';thendelite(s,i,5);insert('плюс',s,i);end;end;var b:string;beginwrite(fn(b));end.

Comments

+ в 5 строке: Встречено 'to', а ожидалось ':'

---

в 5 строке ты что хотел сделать?

---

Вы в пятой строке не указали начальное значение i. Это должно выглядеть примерно так: for i:= 1 to Length(s) do begin..... Как раз здесь и требовалось указать символ двоеточие.

Answer 1

function fn(s:string):string;

var i:integer;

begin

i:=pos('минус',s);

while i>0 do

begin

delete(s,i,5);

insert('плюс',s,i);

i:=pos('минус',s);

end;

fn:=s;

end;

var b:string;

begin

readln(b);

write(fn(b));

end.

Пример:

минус + плюс - минус = 0

плюс + плюс - плюс = 0