Составить программу,позволяющую вставить после каждого символа исходной строки пробел и вывести полученную строку на экран

2

Ответы и объяснения

2013-12-18T16:34:29+00:00
Program gt;
var a:string;
l,i:longint;
begin
readln(a);
l:=length(a);
for i:=1 to l do
begin
write(a[i],' ');
end;
end.
  • SkyBy
  • главный мозг
2013-12-18T17:17:09+00:00
Var s,t: string;
i: integer;
begin
write ('Введите строку: '); read (s);
t:='';
for i:=1 to length(s) do 
t:=t+s[i]+' ';
writeln ('Результат: ',t);
end.