Четные и нечетные символы разделить по разным строкам | Язык Паскаль

Четные и нечетные символы разделить по разным строкам

Создайте из четных символов строки str1 строку str2 и из нечетных символов - строку str3.

  1. Измерим длину строки.
  2. В цикле перебираем символы от 1-го до последнего (его индекс равен значению длины строки).
  3. Если индекс очередного символа нечетный, то добавляем этот символ в конец строки str3.
  4. Иначе - добавляем к str2.
var
    str1,str2,str3: string;
    l,i: byte;    
begin
    readln(str1);
    str2 := '';
    str3 := '';
    l := length(str1);
    for i:=1 to l do
        if odd(i) then
            str3 := str3 + str1[i]
        else
            str2 := str2 + str1[i];
    writeln(str2);
    writeln(str3);
end.

Пример выполнения программы:

Pascal 1234567890
acl13579
Psa 24680