Прошу помочь в решении задачи на символьные величины
" Убрать в слове агроном букву "о" "
Вот примерное моё решение

program f353;
var st:string;
i:integer;
begin
st:='агроном';
i:=length(st);
while i>0 do
begin
delete(st,1,1);
i:=i+1;
end;
writeln(st);
end.

Это неправильное решение: практически вечный цикл (хотя на самом деле цикл закончится, от переполнения целого числа)...

repeat
  p := pos('о', st);
  if p > 0 then delete(st, p, 1);
until p = 0;

будет гораздо эффективнее...

Теги используй, кстати...

Скажите, что означает функция pos
Заранее спасибо

Большое спасибо, разобрался в задаче

Привет там, просто стало внимательны к вашим Форум через Google, и обнаружил, что это действительно информативным. Я буду следить за Брюсселе. Я буду признателен, если вы будете продолжать это в будущем. Много людей будет выгоду от вашей письменной форме. Cheers! наилучшие пожелания