Дано число A. Вычислить A^15, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A^2, A^3, A^5, A^10, A^15. Вывести все найденные степени числа A
Категория: Delphi/Pascal
2011-11-14 23:27:40
code: #pascal
Program Begin28; Var A,Temp1,Temp2:Real; Begin ReadLn(A); Temp1:=Sqr(A); WriteLn('A^2 = ',Temp1); Temp2:=A*Temp1; WriteLn('A^3 = ',Temp2); Temp1:=Temp2*Sqr(A); WriteLn('A^5 = ',Temp1); Temp2:=Sqr(Temp1); WriteLn('A^10 = ',Temp2)); WriteLn('A^15 = ',Temp1*Temp2); ReadLn; End.
автор: Sklyarov Sergej a.k.a. S9
Поделиться: