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.