Имеется некоторая последовательность символов. Образовать новую последовательность, включив в нее символы исходной, кроме запятых. (использовать склейку «+»)(не использовать pos, delete, copy…)
Имеется
некоторая последовательность символов. Образовать новую последовательность,
включив в нее символы исходной, кроме запятых. (использовать склейку «+»)(не использовать pos, delete,
copy…)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы