Написать подпрограмму для поиска максимального из всех двухзначных чисел в строке. Если в строке нет ни одного двухзначного числа, то подпрограмма должна вернуть 0.

function CalcMax (s:string) : integer; с процедурой val

Какие из нижеследующих объявлений функций и процедур ошибочны? Напишите правильный вариант. a) Function Mod (x, y:integer) : real; b) Function Sum (a, z:real) ; c) Function P (A: array [1 ...

Функция для определения позиции буквы в слове, не могу найти ошибку. var slovo : string; i : integer; function ups (var s : string; ch : char) : integer; var i, n : integer; begin for i:=1 to length (s) do if s[i]=ch then n:=i else n:=0; ups:=n; end;

15. string s = "Я люблю программировать!"; int p = s. LastIndexOf ("") ; Console. WriteLine (p) ; 16. string s = "Я люблю программировать!"; string res=s. Remove (27) ; Console. WriteLine (res) ; 17.

function F (n: integer) : integer; function G (n: integer) : integer; определены с помощью операционной семантики равенствами: F (0) = 1, G (0) = 2, F (n) = G (n-1), G (n) = F (n-1) + G (n-1). Найти значения F (3) и G (3).

Function F (n: integer) : integer; begin if n > 2 then F : = F (n - 1) + G (n - 2) else F : = 1; end; function G (n: integer) : integer; begin if n > 2 then G : = G (n - 1) + F (n - 2) else G : = 1; end;