Проверьте есть ли ошибки ,срочно пожалуйста
program n_4 ;
var p ,m ,v:real;beginwriteln ( ‘Определение плоности вещества ‘)write 🙁 ‘ Введите массу вещества ‘ )writeln( ‘Определение массы вещества ‘)р=mvwriteln( ‘ p=’)
end.
- ИСПРАВЛЕНО
program n_4 ;
var p ,m ,v :real;beginwriteln ( ‘Определение плотности вещества ‘);writeln( ‘ Введите массу вещества ‘ ); readln(m);writeln( ‘ Введите объем вещества ‘ );
readln(V);
writeln( ‘Плотность вещества ‘);р=m/v;writeln( ‘ p=’, p);
end.