Исправить ошибки в тексте. Во все слова длиный - вопрос №681685 от sargsyantatev1 27.05.2020 22:58

Question

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

sargsyantatev1 · 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.

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