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