Задание
write\(a\);
end.
Что напечатается в результате выполнения программы?
var
a:string;
m:integer;
begin
a := 'монтажник';
delete \(a, 8, 2\);
insert\('ф',a,1\);
m := length \(a\);
writeln \(m\);
a:=a
\[1\]
+copy\(a,3,4\)+a\[m\]
;write\(a\);
end.
- 6
монтаж - 6
фонтан - 8
фонтан - 6
фонтан