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

186

308

Посмотреть ответы 3

Ответы на вопрос:

kazD01

Информатика

4,4(84 оценок)

Для удаления правой половины символов: 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

steel09090

Информатика

4,7(72 оценок)

1. современный вариант // pascalabc.net 3.2, сборка 1429 от 28.04.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring; s: =s.left(s.length div 2); s.println end. пример половину удалим! половину 2. школьный вариант var s: string; n: integer; begin readln(s); n: =length(s) div 2; delete(s,n+1,n); writeln(s); end.