Составьте программу ** языке паскаль для вычесления значений следующих выражений:1)...

Question

Составьте программу на языке паскаль для вычесления значений следующих выражений:1) D=Y^15
2)K=X^19
3)L=(0.5+1/T)^2+1.8T.

Answer 1

Var
   Y,X,T:real;
Begin
Write('Y = ');
ReadLn(Y);
Write('X = ');
ReadLn(X);
Write('T = ');
ReadLn(T);
WriteLn('D = ',Power(Y,15));
WriteLn('K = ',Power(X,19));
WriteLn('L = ',Sqr(0.5+1/T)+1.8*T );
End.