Ответы
Ответ дал:
0
Var
X,A:real;
Begin
Write('X = ');ReadLn(X);
Write('A = ');ReadLn(A);
WriteLn(X/(6.7*A)+(sqrt(abs(5*sqrt(X*X*X)/A))/A*A));
End.
X,A:real;
Begin
Write('X = ');ReadLn(X);
Write('A = ');ReadLn(A);
WriteLn(X/(6.7*A)+(sqrt(abs(5*sqrt(X*X*X)/A))/A*A));
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад