Предмет: Информатика,
автор: ashhhtray
напишите программу в pascal, которая в текст перед словом "большой" вставляет слово "очень".
Ответы
Автор ответа:
0
const
c1='Мы испекли большой каравай';
c2='большой';
c3='очень';
var
s:string;
i:integer;
begin
s:=c1;
Writeln(s);
i:=Pos(c2,s);
if i>0 then Insert(c3+' ',s,i);
Writeln(s)
end.
Результат выполнения программы:
Мы испекли большой каравай
Мы испекли очень большой каравай
c1='Мы испекли большой каравай';
c2='большой';
c3='очень';
var
s:string;
i:integer;
begin
s:=c1;
Writeln(s);
i:=Pos(c2,s);
if i>0 then Insert(c3+' ',s,i);
Writeln(s)
end.
Результат выполнения программы:
Мы испекли большой каравай
Мы испекли очень большой каравай
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Здрасте1111
Предмет: Английский язык,
автор: Польбощь
Предмет: Русский язык,
автор: ученица999999999
Предмет: Математика,
автор: Savelik09
Предмет: Математика,
автор: Terrasar