Найдите произведение пятизначных чисел кратных 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.

Дано: a=10 см b=10 см k_1=1200×1200 dpi i=24 bit i  -  ? решение: i=k*i 1 дюйм = 2,54 см a=b=10 см=10/2,54=3,94 дюйм k=k_1ab=1200×1200  dpi*3,94 дюйм*3,94 дюйм=22353984 i=22353984*24  бит=536495616 бит  ≈ 64 мбайт ответ:   i≈64 мбайт

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.