Question

В данной строке вставьте пробел после каждого символа.

Answer 1

program Example8;
var   word, spacedWord: string;   i: integer;
begin   word := 'строка';   spacedWord := '';   for i := 1 to length(word) do   begin     spacedWord := spacedWord + word[i];     if i < length(word) then       spacedWord := spacedWord + ' ';   end;   writeln(spacedWord); end.