За каждую клетку число зерен удваивается и мы получаем сумму такого ряда:
Это число равно 18 446 744 073 709 551 615.
Определим приблизительный объем зерна
18446744073709551615 / 15000000 ≈ 1 229 782 938 247м³
Если считать, что амбар имеет форму куба, длина его каждого измерения составит приблизительно ∛1229782938247 ≈ 10714м.
var
a: array [1..5, 1..5] of byte;
min: array [1..5] of byte;
i, j: byte;
begin
for i := 1 to 5 do min[i] := 100;
for i := 1 to 5 do
for j := 1 to 5 do
begin
a[i, j] := random(0, 99);
if (min[i] > a[i, j]) then min[i] := a[i, j];
end;
for i := 1 to 5 do
begin
for j := 1 to 5 do
write(a[i, j]:2, ' ');
writeln('- ', min[i]);
end;
<span>end.</span>
http://pro-spo.ru/workopenoffice/3900-openoffice-calc-dlya-nachinayushhix-elektronnaya-tablicza-kak-baza-dannyx-pechat-dokumenta СИЛКА НА САЙТ З ПОЯСНЕННЯМ!!!
Системные программы - обеспечивают работу компьютера и взаимодействие компьютера с пользователем
инструментальные программы - для разработки новых программ
прикладные программы - для решения задач пользователя