Паскаль (abc), составить полную рабочую программу используя insert
Дано слово.(слово вводится через writeln) Вставить заданную букву после первой буквы "и" (если она есть, если нету, выводит результат "в слове нету буквы и")
Дано слово.(слово вводится через writeln) Вставить заданную букву после первой буквы "и" (если она есть, если нету, выводит результат "в слове нету буквы и")
More Questions From This User See All
Answers & Comments
var s: string;
c: char;
p: integer;
begin
writeln('Введите слово: ');
readln(s);
writeln('Введите букву: ');
readln(c);
p:=pos('и', s);
if p > 0 then
begin
insert(c, s, p + 1);
writeln(s);
end
else
writeln('В слове нет буквы и');
end.