Question

на паскаль ABC
1).составте программу которая удаляет первое слово текста
2)составте программу которая вставляет одно слово в текст после первого пробела

Answer 1

1) var
s, s1:string;
c:char;
begin
repeat begin read (c); s1:=s1+c; end until c=' ';
read (s);
write (s);
end.
2)var
s, s1, s2:string;
c:char;
begin
read (s);
while (c<>' ') do begin read (c); s1:=s1+c; end;
read (s2);
write (s1, ' ', s, ' ', s2); end.
где первым вводится слово, которое нужно вставить

Answer 2

var
s: string;
c: char;

begin
repeat
read(c);
until c = ' ';
read(s);
write(s);
end.