Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.

1

Ответы и объяснения

2013-11-16T19:51:21+04:00
var 
s: string;
i: integer;

begin
write('Введите строку: ');
read(s);
for i:= 1 to length(s) do 
 case s[i] of 
  'о': s[i]:='*'; 
  'О': s[i]:='*'; 
 end;

writeln('Результат: ',s); 
end.
Спасибо большое. Программа работает. Но моя вина в том, что я не уточнила одну вещь - использовать можно только функции и процедуры: delet, insert, pos, setlength. Можно ли как-то составить программу, исходя из этих только функций?
То есть не обязательно будут использоваться ВСЕ эти функции, но одна из этих функций delet, insert, pos, setlength, length может использоваться. И никакие больше...