Всем привет.
В программе есть три стринга.
В первый стринг записывается введення строчка.
Дальше мне нужно поделить слово пополам, и первую половину занести во второй стринг, а вторую половину в третий стринг.
Алгоритм придумал такой:
Добавляем еще переменную интеджер, назовем i для понятности.
В нее заносим длину первого стринга(все слово)
Потом делим i на 2.
И если i четное, то первые i букв первого стринга заносятся в второй стринг. а следующие i букв заносятся в третий стринг.
Можете с кодом помочь?
var in, first, second : string;
i : integer;
...
begin
read(in);
i := length(in);
if (i/2 mod 2 = 0) then first := первые i символов от in; second := оставшиеся i символов от in; // как сделать?
end.