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