Написать программу удаления половины символов, зная, что количество символов в строке — чётное. (Паскаль)

Вопрос школьника по предмету Информатика

Написать программу удаления половины символов, зная, что количество символов в строке — чётное. (Паскаль)

Ответ учителя по предмету Информатика

Для удаления правой половины символов:

Var

   S:string;

Begin

Write(‘Введите строку: ‘);ReadLn(S);

S:=Copy(S,1,Length(S) div 2);

WriteLn(S);

End.

Пример работы программы:

Введите строку: 1234

12

Для удаления левой половины символов:

Var

   S:string;

Begin

Write(‘Введите строку: ‘);ReadLn(S);

S:=Copy(S,Length(S) div 2+1, Length(S));

WriteLn(S);

End.

Пример работы программы:

Введите строку: 1234

34

Удаление выбранной половины символов:

Var

   S:string;

   A:byte;

Begin

Write(‘Введите строку: ‘);ReadLn(S);

WriteLn(‘1 — удаление правой половины, 2 — удаление левой половины’);

ReadLn(A);

if A = 1 then S:=Copy(S,Length(S) div 2+1, Length(S))

else S:=Copy(S,1,Length(S) div 2);

WriteLn(S);

End.

Пример работы программы:

Введите строку: 1234567890

1 — удаление правой половины, 2 — удаление левой половины

2

12345