Составить программу, которая вычисляет произведение сомножителей:
10-11 класс
|
(1+1/1)(1+1/4)(1+1/9)(1+1/16)(1+1/25)(1+1/36)…
Вычисление происходит до тех пор, пока произведение сомножителей не станет больше, чем 3.6.
В ответе написать количество сомножителей для данного вычисления. В ответе указать только число, например, 15
var i, ans : integer;
pr : real;
begin
i := 1;
pr := 1;
ans := 0;
while (pr <= 3.6) do begin
pr *= (1 + 1 / (i * i));
i := i + 1;
ans := ans + 1;
end;
writeln(ans);
end.
48 сомножителей
Другие вопросы из категории
Чему равен F3, если F7 = 2 и F
из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную
системы счисления.
1) MOV
2) MMX
3) MIMD
4) SIMD
Читайте также
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
меньше 52.
2)В результате работы некоторой подпрограммы вычислены значения четырех переменных a, b, c, d. Написать на предложенном в пункте а) языке программирования программу, после работы которой в случае, если сумма положительных значений (среди a, b, c, d) больше 20, значение g равно наибольшему из a, b, c, а в остальных случаях значение g равно значению d. (В программе можно использовать новые переменные.)
элементов настоящей таблице х [1 .. 10] на 0.
3.составить программу, замены отрицательного элементов настоящей таблице х [1 .. 10] на их квадрат.
4.составить прогрумму, которая увеличивает на 2 все элементы настоящей таблице х [1 .. 10], которые больше 10.
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE