Составьте программу для решения задачи : при каком значении N произведение станет меньше 0.1
5-9 класс
|
p=1/2*1/4...1/2N;
Турбо паскаль!!!!
знаю задача не очень то и сложно но я забыл как решать такого типа помогите люди пожалуйста срочно нужно
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.
Другие вопросы из категории
Тяжелая промышленность-это... Легкая промышленность-это...
задание лёгкое!С права на русском!
Читайте также
алгоритм для решения задачи: Найти действительные корни квадратного уравнения вида ax^2+bx+c=0.
Составить алгоритм для решения задачи: Определить, какая из двух точек заданных своими координатами расположена ближе к началу координат.
Составьте программу для решения задач:
1.Найдите произведение квадратных корней N первых натуральных чисел
2.Определить делится ли сумма цифр заданного натурального числа на 7
3.Заменяет в записи натурального числа N цифру 8 на цифру 3
2.Составить блок - схему кипячения чайника.
3.Составить алгоритм сбора яблок в саду.Ваша задача сводится к тому,что необходимо собрать ведро яблок с земли.
4.Составьте алгоритм на формальном языке и блок - схему для решения следущего примера : y=5x+6,если х=3