Помогите рекурсивно описать функцию cos(x,k) на pascal, где
cos(x,k)
pascal
cos(x,k)=cos(cos(..cos(x)..))(k косинусов)
function cosk(x: Real; k: LongInt): Real; begin if k <= 0 then begin cosk := cos(x); end else cosk := cosk(x, k - 1); end;
Необходима, но никому не показывается
Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.