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

1

Ответы и объяснения

2013-11-15T22:52:36+04:00
Program Task;
Var N: Integer;
p: Real;
Begin
p := 1;
N := 1;
While p >= 0.1 Do
Begin
p := p * (1 / (2 * N));
N := N + 1;
End;
WriteLn('N = ', N);
ReadLn;
End.