Создайте из четных символов строки st1 строку str2 и из нечетных символов — строку str3.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
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. |
Похожие записи: