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

Question

Информатика

Хаврония

8 декабря, 13:05

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

+2

Ответы (1)

Знаете ответ на вопрос?

Адина · Answer 1

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.