ВА
Виталий Абраменко
Программирование на уровне школы. помогите! У меня недружба с условиями (паскаль)
Var a,b,m,z:real;
Begin
Writeln ('введите положительное значение m');
readln (m);
if m<=0 then begin
writeln('недопустимое значение переменной')
else
a:=sqrt(sqr(3*m+2)-24*m);
b:=3*sqrt(m)-2/sqrt(m);
z:=a/b;
writeln ('z=', z);
end;
end.