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

Question

Информатика

Акиндин

28 сентября, 23:46

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

+5

Ответы (2)

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

Коста · Answer 1

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.

Валер · Answer 2

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.