Имеется некоторая последовательность символов. Образовать новую последовательность, пропустив пробелы. (использовать склейку «+»)(не использовать pos, delete, copy…) на паскале!
program RemoveSpaces; var inputString, outputString: string; i: integer; begin inputString := 'Т е с т о в а я п о с л е д о в а т е л ь н о с т ь'; outputString := ''; for i := 1 to Length(inputString) do begin if inputString[i] <> ' ' then outputString := outputString + inputString[i]; end; writeln('Исходная последовательность: ', inputString); writeln('Последовательность без пробелов: ', outputString); end.
При запуске данной программы будет получен следующий результат:
Исходная последовательность: Т е с т о в а я п о с л е д о в а т е л ь н о с т ь Последовательность без пробелов: Тестоваяпоследовательность
Пример решения на языке Pascal:
program RemoveSpaces;var
inputString, outputString: string;
i: integer;
begin
inputString := 'Т е с т о в а я п о с л е д о в а т е л ь н о с т ь';
outputString := '';
for i := 1 to Length(inputString) do
begin
if inputString[i] <> ' ' then
outputString := outputString + inputString[i];
end;
writeln('Исходная последовательность: ', inputString);
writeln('Последовательность без пробелов: ', outputString);
end.
При запуске данной программы будет получен следующий результат:
Исходная последовательность: Т е с т о в а я п о с л е д о в а т е л ь н о с т ьПоследовательность без пробелов: Тестоваяпоследовательность