Составить процедуру вычисления значения целого числа по заданной строке символов являющейся записью этого числа в десятичной системи счисления(паскаль)
function CalculateIntegerFromString(s: string): Integer va i, num, power: Integer begi num := 0 power := Length(s) - 1 for i := 1 to Length(s) d begi num := num + (Ord(s[i]) - Ord('0')) * Round(Power(10, power)) power := power - 1 end CalculateIntegerFromString := num end;
va
i, num, power: Integer
begi
num := 0
power := Length(s) - 1
for i := 1 to Length(s) d
begi
num := num + (Ord(s[i]) - Ord('0')) * Round(Power(10, power))
power := power - 1
end
CalculateIntegerFromString := num
end;