В заданной фразе после каждой буквы «о» вставить сочетание введенное с клавиатуры.
Или найдите как изменить эту программу, в ней сочетание пишется только после первой буквы, хотя если словосочетание будет из одной буквы то программа нормально работает.
program pony;
vark,a,b:string;
i:integer;
begin
write('введите строку');
readln(a);
write('введите сочетание');
readln(b);
k:=copy (b,1,length (b));
for i:=1 to length (a) do begin
if a[i]='о' then insert(k,a,i+1);
end;
writeln(a);
end.
Или найдите как изменить эту программу, в ней сочетание пишется только после первой буквы, хотя если словосочетание будет из одной буквы то программа нормально работает.
program pony;
vark,a,b:string;
i:integer;
begin
write('введите строку');
readln(a);
write('введите сочетание');
readln(b);
k:=copy (b,1,length (b));
for i:=1 to length (a) do begin
if a[i]='о' then insert(k,a,i+1);
end;
writeln(a);
end.
More Questions From This User See All
Answers & Comments
Скорее всего криво и нерационально, но работает
var
s,s2,a : string;
l,i,b,l2 : integer;
begin
readln (s);
l := Length(s);
while b <> -1 do
begin b := 0;
b := pos ('o',s);
if b <> 0 then
begin
s2 := s2 + copy(s,1,b);
Delete (s,1,b);
writeln ('Введите строку');
readln (a);
s2 := s2+a;
end
else
begin
l2 := Length(s);
s2 := s2 + copy(s,1,l2);
b := -1;
end;
end;
writeln (s2);
end.