Хелп! как известно, игра в шахматы была придумана в индии. согласно старинной легенде, индусский царь, восхищенный игрой, решил щедро одарить ее изобретателя. но тот, по мнению царя, запросил ничтожную награду: он просил выдать одно пшеничное зерно за первую клетку шахматной доски, а за каждую след. клетку (всего их 64)- вдвое больше против предыдущей. рассчитайте, сколько всего пшеничных зерен должен был получить изобретатель. какими могли быть размеры амбара для размещения этого зерна, если кубический метр пшеницы содержит около 15 млн. зерен?

18446744073709551615 зерен
10713.782391753359 м сторона кубического амбара

#Ruby22
k=1
s=k
for i in 2..64
    k *= 2
    s += k
end
p s
p (s/15.0/10**6)**(1.0/3.0)

готово. паскаль

Объяснение:

Задание 1

с = 0

Задание 2

var

 n, m, c: integer;

begin

 Write('Введите числа m и n >> ');

 ReadLn(m, n);

 if (m mod 5 <> 0) or (m < n) then

    c := (m mod 10) + (n mod 10);

 WriteLn('Сумма последних цифр этих чисел равна ', c);

end.

Задание 3

var

 a, b, c: integer;

begin

 Write('Введите числа a, b и c >> ');

 ReadLn(a, b, c);

 if (b < 50) and (b > 20) and (c < a) then

 begin

    WriteLn('Сумма этих чисел равна ', a + b + c);

    WriteLn('Произведение этих чисел равно ', a * b * c);

 end;

end.

Program Min_Max;

uses crt;

var a:array[1..3] of integer;

i,min,max:integer;

begin

 Textcolor (12);

  For i:=1 to 3 do

    Begin

      A[i]:=random(100);

      Write(A[i]:4);

    End;

 Writeln;

 min:=a[1];

 for i:=1 to 3 do  

  begin  

     if a[i]>max then  

      max:=a[i];

     if a[i]<min then  

      min:=a[i];

 end;

 write('                                   ');

 for i:=1 to 3 do  

  begin  

     if a[i]=max then

      Begin

       textcolor(12);

       write(max:3);

      End;

     if a[i]=min then  

        Begin

         textcolor(9);

         write(min:3);

        End;

     if (a[i]<>min) and (A[i]<>max) then

          Begin

           textcolor(14);

           write(A[i]:3);

          End;

      End;

readln;

end.

Объяснение: