Консультация № 188315
02.12.2015, 16:44
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:
В заданном тексте заменить все буквы "а" на букву "о".(BPascal)

Обсуждение

давно
Старший Модератор
31795
6196
04.12.2015, 01:45
общий
это ответ
Здравствуйте, Посетитель - 399097!

Смотрите код:
[code lang=pascal h=200]var
a:string;
begin
write('Enter string:');
readln(a);
while pos('a',a)>0 do a[pos('a',a)]:='o';{ищем символ и заменяем}
writeln('Result:',a);{выводим результат}
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа