Найдите произведение пятизначных чисел кратных 2000 в исполнителе abc pascal

Pascalabc не позволяет считать столь большие числа, но если бы он позволял делать это, то следующий код работал бы: program z1; vara, i: longint; begina : = 1; i : = 10000; while (i < 100001) dobegina : = a * i; i : = i + 2000; end; writeln(a); end.

а)сумм(a5: b7)

б)срзнач(c4: c7)

пусть х основание системы счисления, тогда:

122х (здесь х должен стоять нижним индексом) = 1*х² + 2*х¹ + 2*х⁰=х²+2х+2 - это десятичная запись исходного числа, значит:

х²+2х+2=65

х²+2х-63=0

д= 4 + 252 = 256

х₁ = (-2-  16)/2 = -9 (не удовлетворяет)

х₂ = (-2 + 16)/2 = 7

ответ. основание системы счисления = 7.