Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дана строка. Известно,что количество символов в строке кратно 3. Удалите из слова середину(то есть среднюю треть символов)

Ответ оставил Гость

Var
  s:string;
  n:integer;
begin
  Writeln(Введите строку с длиной, кратной трем:); Readln(s);
  n:=Length(s) div 3;
  Delete(s,n+1,n);
  Write(Результат: ,s)
end.

Тестовое решение:
Введите строку с длиной, кратной трем:
Из строки середина будет удалена!
Результат: Из строки ет удалена!