var s:string;
begin
s:='яблоко';
delete(s,1,3);
insert('н',s,3);
writeln(s);
readln;
end.
Похожие записи/страницы:
- Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между…
- Заданы два слова. Составьте программу, которая определит, можно ли вычеркиванием букв из первого слова получить…
- Дана строка символов. найди самое длинное слово, начинающаяся с согласной буквы, и поменять ее с последним…
- Удалить из слова X те буквы, что используются при написании слова Y- Pascal(Паскаль)
- Все слова в тексте отсортировать в алфавитном порядке. Считать, что слова отделены друг от друга одним пробелом…
- Написать процедуру, определяющую одинаковых "соседей" (слова справа и слева - совпадают) - Pascal(Паскаль)
- Создать окно и ввести в него небольшой текст. Слова разделять пробелами.Организовать новое окно, в котором будет…
- Дана последовательность, содержащая от 1 до 30 слов. Слова разделены одним или несколькими пробелами. За…