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.