Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

F=pgv написать программу, где p - плотность, g - ускорение свободного падения g:=10, v-объем. ПОМООГИИТТЕЕЕ!!!!!!!!!!!!!!!!!!!!

Ответ оставил Гость

Const g=10; 
var f,p,v:real; 
begin 
writeln(Введите объем и плотность); 
read(p,v); 
f:=p*g*v; 
writeln(Сила Архимеда F=,f); 
end.