USES Crt;
VAR
S : STRING [50]; PZ, I: INTEGER;
BEGIN
ClrScr;
WriteLn(‘Введите текст’); ReadLn(S);
FOR I:=1 TO Length(S) DO
IF Copy(S,I,6)='длиный' THEN Insert('н',S,I+3);
WriteLn(‘Измененный текст:’); WriteLn(S);
END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
