Question

1.С клавиатуры вводится слово,распечатать все его буквы через пробел.(после последней буквы пробела быть не должно).
2.Написать программу,которая удаляет первое слово из строки введенной с клавиатуры и вместо него вставляет заданное.

Answer 1

1)
var
a:string;
i,n:integer;
begin   
     readln(a);   
     n:=length(a);   
         for i:=1 to n do       
            write(' ',a[i]);
end.
2)
var
a,b:string;
i,n,d:integer;
begin 
   Writeln('введите строку');
   readln(a); 
   n:=length(a);   
   d:=pos(' ',a);   
   Delete(a, 1,d-1);   
   writeln('введите слово для замены');
   readln(b); 
   Insert(b, a,1);   
   writeln;   
   writeln(a);
end.