вычислите на паскаль s=1+1/2+1/4+1/8...1/(2^N)
10-11 класс
|
Возможны небольшие ошибки
var a,b,s,n,i: integer;
begin
readln (n);
s:=1
for i:=1 to n do
begin
b:=0;
for a:=1 to i do
b:=b+2;
end;
s:=s+1/b;
end;
writeln (s);
end.
Другие вопросы из категории
Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его с элементом главной диагонали.
(на паскале)
Читайте также
Нечетное то вычислить сумму : 1 + 2 + .+N.Составить программу на паскале
1. Вычислите выражение при заданных константах: A=16.5; b=3.4; x=0.61;
2.
Составить программу вычисления значения функции. На экран вывести функцию (записанную на Паскале) вместе с результатом.
у={a+b+cx^2,если 1<=x<2
(a*sin(xb))^2,если 2<=x<3
под корнем |a+bx^2|+c ,если 3<=x<4
a*ln|b+c/2x| ,если 4<=x<5
e^esinx+c^3 ,если 5<=x<6
Пожалуйста...
1)Вычислить значения функции y=(x-1)^3 при изменении x на отрезке -5;5 с шагом 0,2 отпечатать каждое третье отрицательное значение и получить произведение положительных.
2)Найти сумму ряда y=x-(x^2)/2+(x^3)/3-...+((-1)x^n)/n
Плиз срочно надо
Даны
действительные числа х, у, и z. Вычислить
max (x + y + z, xyz).
(только пожалуйста напишите полное решение, а не кусок)