Имеется

некоторая последовательность символов. Образовать новую последовательность,

включив в нее символы исходной, кроме запятых. (использовать склейку "+") (не использовать pos, delete,

copy ...)

Question

Володяша

3 августа, 04:39

+2

Ответы (1)

Знаете ответ на вопрос?

Платонида · Answer 1

Var n, s:string;

i:byte;

begin

read (s) ;

n:='';

for i:=1 to length (s) do

if s[i]',' then n:=n+s[i];

write (n) ;

end.