Исправить ошибки в тексте. Во все слова длиный вставить - вопрос №681008 от NastyaMishacheva 12.01.2021 10:22

Question

Другие предметы: Исправить ошибки в тексте. Во все слова длиный вставить букву н . (программа Паскаль)

NastyaMishacheva · Answer

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.

Исправить ошибки в тексте. Во все слова "длиный" вставить букву "н". (программа Паскаль)