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

Question

Информатика

Климент

24 февраля, 05:05

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

+1

Ответы (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.