Решаем задачи Абрамян на Паскале. String11

String11. Дана непустая строка S. Вывести строку, содержащую символы строки S, между которыми вставлено по одному пробелу.

Решение:

program String11;
var
  i:integer;
  S,S2:string;

begin
 Write('S:');
 Readln (S);
 S2:=S[1];

 for i:=2 to Length(S) do S2:=S2+' '+S[i];

 Writeln(S2);
end.

program String11;

var

i:integer;

S,S2:string;

begin

Write('S:');

Readln (S);

S2:=S[1];

for i:=2 to Length(S) do S2:=S2+' '+S[i];

Writeln(S2);

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String11

Комментарии:

Добавить комментарий Отменить ответ