Question

Составить программу в паскале удалить все пробелы в строке

Answer 1

Program znanija;
var s,r:string;   
i:integer;
begin
Read(s);
for i:=1 to length(s) do 
begin   
if s[i] <> ' ' then r:=r+s[i]; 
end;
Writeln(r);
end.

Один из вариантов решения 

Answer 2

Программа на языке Pascal для удаления всех пробелов в строке:

program RemoveSpaces;

var
  inputString, resultString: string;
  i: integer;

begin
  writeln('Введите строку:');
  readln(inputString);

resultString := '';

for i := 1 to length(inputString) do
  begin
    if inputString[i] <> ' ' then
    begin
      resultString := resultString + inputString[i];
    end;
  end;

writeln('Результат:');
  writeln(resultString);
end.

Эта программа запрашивает у пользователя ввод строки, затем проходит по каждому символу в строке и добавляет его в новую строку, если символ не является пробелом. В результате мы получаем строку без пробелов.