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

1

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

  • SkyBy
  • главный мозг
2013-11-18T00:54:56+04:00
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.