Форум » Выполнение и анализ алгоритмов для исполнителей » задание 12 №224 » Ответить
задание 12 №224
vin: помогите перевести строку в число, выдает ошибку времени выполнения[pre2] var k:string; n, s: biginteger; begin for var i:= 1 to 10 do begin k:= '1' * 10 + '2' * i; while ('21' in k) do begin k:= k.Replace ('21', '6', 1); end; n:= strtoint(k); while n>0 do begin s:= s + n mod 10; n:= n div 10; end; if s = 50 then println (k, ' ', i); end; end.[/pre2]
Ответов - 1
Поляков: vin пишет: n:= strtoint(k); Эта функция не может преобразовать длинное число из символьного вида в BigInteger. Попробуйте иначе искать сумму цифр: [pre2] s := 0; foreach var c in k do s += ord(c) - ord('0');[/pre2]
полная версия страницы