Сколько автомашин грузоподъемностью 5тонн понадобиться для перевозки кирпича для возведения стен одноэтажного дома размером в . Сколько кирпича понадобиться для возведения здания? Для решения задачи находим площадь всех стен здания за минусом площади окон и дверей, затем находим объем стен, который равен произведению площади на толщину стены (2 кирпича равно 0,5м). Третьим действием находим массу стены, используя формулу плотности. Четвертым действием находим количество машин для перевозки кирпича: массу стены делим на грузоподъемность машины. Шестым действием находим количество кирпичей для строительства здания, разделив объем стен на объем кирпича. Решение подробное

Допустим, что в первом взвешивании на чашки весов положили по 4 монеты и наблюдается равновесие. Тогда фальшивая монета находится среди остальных 5 монет, причем может быть как легче, так и тяжелее настоящей монеты. Всего, таким образом, имеется 2*5= 10 вариантов. Но оставиеся 2 взвешивания могут иметь лишь 3(в квадрате) = 9 различных исходов. Если же в первом взвешивании на чашки весов положили по 5 монет, то в случае неравновесия ( Л не равно П) снова остается 10 вариантов. Действительно, если фальшивая монета легче, то она находится среди 5 монет на левой чаше, если тяжелее - то среди 5 монет на правой чаше. 

Program long;
 uses Crt;
 const n=5;
 type Vec=array [1..n] of integer;
 var A, B, C: Vec;
     i,j,k, Col: integer;
     Pro: longint;
     a1, a2: integer;
begin
 ClrScr;
 Randomize;
 Col:=1;  Pro:=1;
 WriteLn ('Massiv A:');
 for i:=1 to n do
   begin
     A[i]:=500+random(2000);
     Write(A[i]:6);
     if A[i] >1000 then
        begin
          B[Col]:=A[i]; Col:=Col+1;
        end;
   end;  WriteLn;
 Col:=Col-1;  WriteLn;
 WriteLn ('Massiv B:');
 for i:=1 to Col do
   WriteLn(B[i]);
 WriteLn;
 k:=1;
 for i:=1 to n do
   begin
       a2:=B[i] mod 10;
       a1:=B[i] div 1000;
       if sqr(a1)<sqr(a2) then
           begin
              C[k]:=B[i];
              k:=k+1;
           end;
   end;
 for i:=1 to k-1 do
     Pro:=Pro*C[i];
  WriteLn ('Pro=',Pro);
ReadLn;
end.