Четные и нечетные символы разделить по разным строкам
Создайте из четных символов строки str1 строку str2 и из нечетных символов - строку str3.
- Измерим длину строки.
- В цикле перебираем символы от 1-го до последнего (его индекс равен значению длины строки).
- Если индекс очередного символа нечетный, то добавляем этот символ в конец строки str3.
- Иначе - добавляем к 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