//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a,i:integer; begin write('Введите число '); readln(a); for i:=10 to 99 do if i mod a = 0 then writeln(i,' кратно ',a); end.
За каждую клетку число зерен удваивается и мы получаем сумму такого ряда:
Это число равно 18 446 744 073 709 551 615. Определим приблизительный объем зерна 18446744073709551615 / 15000000 ≈ 1 229 782 938 247м³ Если считать, что амбар имеет форму куба, длина его каждого измерения составит приблизительно ∛1229782938247 ≈ 10714м.