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

Question

Информатика

Акиндин

16 января, 20:35

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

+2

Ответы (2)

Знаете ответ?

Валер · Answer 1

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.

Коста · Answer 2

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.