Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.
Составьте программу, которая заменяет все буквы "о" на символ "*" в строке s.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы