Задание
if \(k = 5\) and \(pos\(':', s\) > 0) then insert\('\*', s, pos\(':', s\) + 1);
writeln\('Result:'\);
writeln\(s\);
readln
end.
Определите, что делает данная программа:
var s: string;
i, k: integer;
begin
writeln\('Enter string:'\);
readln\(s\);
k := 0;
for i := 1 to length\(s\) do if s
\[i\]
= '=' then inc\(k\);if \(k = 5\) and \(pos\(':', s\) > 0) then insert\('\*', s, pos\(':', s\) + 1);
writeln\('Result:'\);
writeln\(s\);
readln
end.