Question

в паскаль авс:найти плотность тела, если известны масса и объём

Answer 1

Program Plotnost;
var a,b,c : real;
begin
writeln('Введите значение массы и объёма соответственно и через пробел');
reagln(a,b);
c:=a/b;
writeln('p=' , c);
end.

Answer 2

большое спасибо))

Answer 3

Fastkuler, uses crt это значит то что ты загружаешь функции и процедуры из библиотеки crt, эта программа может работать и без этой библиотеки, но, вот например ты не сможешь строить графы без библиотеки graph, т.к. используемых функций нет в стандартном языке. Вывод: crt в такой простейшей задаче не нужно, это только увеличит вес твоей программы и понадобится больше оперативной памяти на её загрузку

Answer 4

Var m,v:integer;
Begin
write('m='); readln(m);
write('V='); readln(v);
writeln('P=',m/v);
End.