Для облегчения выкладок разделим эти 64 множителя на шесть групп по 10 двоек в каждой и одну последнюю группу из четырех двоек. Произведение 10 двоек, как легко убедиться, равно 1024, а четырех двоек— 16. Значит, искомый результат равен 1024 X 1024 X 1024 X 1024 X 1024 X 1024 X 16.Перемножив 1024 X 1024, получим 1 048 576.Теперь остается найти 1048 576X1048 576X1048 576X16, отнять от результата единицу — и нам станет известно искомое число зерен: 18 446 744 073 709 551615. <span>Известно, что кубический метр пшеницы вмещает около 15 миллионов зерен. Значит, награда шахматного изобретателя должна была бы занять объем примерно в 12 000 000 000 000 куб. м. Кстати, это геометрическая прогрессия и ее нужно было кидать в раздел "математика".</span>
64=2^i
i=6 бит на один символ
I=ki
k=I/i=12288 бит/6=2048 символов
первый
var
a : integer := 1;
s : integer;
begin
while a <= 50 do begin
if a mod 2 = 0 then s += a;
a += 1;
end;
writeln('s = ', s);
end.
второй
var
a : integer := 1;
s : integer;
begin
repeat
if a mod 2 = 0 then s += a;
a += 1;
until a > 50;
writeln('s = ', s);
end.
третий
var
s : integer;
begin
for var a := 1 to 50 do if a mod 2 = 0 then s += a;
writeln('s = ', s);
end.