Введите строку с экрана. Выведите её длину. Добавьте после второго символа символ «о»,...

Question

Введите строку с экрана. Выведите её длину. Добавьте после второго символа символ «о», удалите из строки последний символ. Выведите на экран результирующую строку. Приложите исходный код (*.pas) и скомпилированный файл (*.exe).

Comments

Сюда нельзя присоединять исполяемые файлы.

Answer 1

Program TxtManipula;
uses crt;
var txt:string;
begin  Writeln('Введите строку'); 
Readln(txt); 
Writeln('Длина строки:',length(txt)); 
Insert('о',txt,2); 
Writeln(txt); 
Delete (txt.length(txt),1);
Writeln(txt);
Readln();
end.

PS: скомпилированный файл TxtManipula.exe в архиве, это вставленный документ ворд. Просто поменяй расширение docx на zip.

Comments

Спасибо!

---

Мне нужно в PascalABC.NET

---

Опечатка в 7 строке

---

program TxtManipula;
uses crt;
var txt:string;
begin  Writeln('Введите строку'); 
Readln(txt); 
Writeln('Длина строки:',length(txt)); 
Insert('о',txt,2); 
Writeln(txt); 
Readln();
end.

---

Исправил: var txt:string;
begin  Writeln('Введите строку'); 
Readln(txt); 
Writeln('Длина строки:',length(txt)); 
Insert('о',txt,2); 
Writeln(txt); 
Delete(txt,length(txt),1);
Writeln(txt);
Readln();
end.

---

Работает в Pascal ABC.NET проверял через WDE

---

Исправил файлы

---

Спасибо!