Question

Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.
Использовать можно функции pos, length, copy, delete, insert.

Answer 1

var s: string; i: integer;
begin
write ('Введите строку: '); read(s);
for i:=1 to length(s) do
if s[i]='о' then s[i]:='*';
write ('Полученная строка: ',s);
end.