Question

Известны объём тела V и масса тела m. Определите плотность материала p

Answer 1

program plotnost;
var V, m, p :real;
begin
write('обьем тела = ');
read(V);
write('масса тела = ');
read(m);
p:=m/V;
writeln('Плотность тела = ',p);
end.
write