Записать программу этого уравнения на языке Паскаль
Answers & Comments
lasept
Var omega, k: real; const b =5; c=3; begin writeln ('Введите число омега'); readln(omega); k := sqrt((sqr(sin(omega))+cos(sqr(omega)))/(b*c/3+3*b*sqr(c)/4)); writeln('k принимает значение ', k:2:2); end.
Answers & Comments
const b =5; c=3;
begin
writeln ('Введите число омега');
readln(omega);
k := sqrt((sqr(sin(omega))+cos(sqr(omega)))/(b*c/3+3*b*sqr(c)/4));
writeln('k принимает значение ', k:2:2);
end.