Составьте программу для решения задачи: при каком значении N произведение станет…

Question

91

Составьте программу для решения задачи: при каком значении N произведение станет меньше 0,1 p=1/2*1/4… 1/2N; Турбо паскаль! Знаю задача не очень то и сложно но я забыл как решать такого типа помогите люди пожалуйста срочно нужно

в избранное ссылка

Знаете ответ?

bezdep · Accepted Answer

53

bezdep

18 августа 2022

Program Task; Var N: Integer; p: Real; Beginp: =1; N: =1; While p >=0,1 DoBeginp: =p*(1 / (2*N); N: =N+1; End; WriteLn ('N=', N); ReadLn; End.

комментировать

в избранное ссылка отблагодарить