Преобразовать строку S следующим образом: заменить все вхождения 'ab' на '*'.…

Question

68

Преобразовать строку S следующим образом: заменить все вхождения 'ab' на '*'. Напишите пожалуйста программу для Паскаль илилазарус

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

dinaris · Accepted Answer

63

dinaris

01 февраля 2024

Program gt; var s: string; i,l,n: longint; beginreadln (s); n: =length (s); l: =1; while L<>0 dobeginl: =pos ('ab',s); if (l<>0) then begins: =copy (s,1,l-1)+'*'+copy (s,l+2,n); n: =length (s); end; end; writeln (s); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: