Question

Написать подпрограмму для поиска максимального из всех двухзначных чисел в строке. Если в строке нет ни одного двухзначного числа, то подпрограмма должна вернуть 0.
function CalcMax(s:string):integer; с процедурой val

Answer 1

подпрограмма поиска максимального из всех двухзначных чисел в строке

9db29ebce20b9d1e8fc710430fd005e3.pas