Question

(программирование) тело имеет массу м г и объем v см3. будет ли оно плавать в жидкости, объем которой равен v1 см3, а масса м1 г? (указание: найдите плотности тема и жидкости, а затем сравните их).

Answer 1

Var m1, V1: integer;  {первое тело}
     m2, V2: integer;  {второе тело}

begin
  Write('Введите массу первого тела в граммах'); ReadLn(m1);
  Write('Введите объем  первого тела в кубических сантиметрах'); ReadLn(V2);
 Write('Введите массу второго тела в граммах'); ReadLn(m2);
  Write('Введите объем  второго тела в кубических сантиметрах'); ReadLn(V2);
if (m1/V1)>(m2/V2) then WriteLn ('ПЛАВАЕТ')
                             else WriteLn('ТОНЕТ');
ReadLn;
end.