1. Даны действительные число аи натуральное число n. Вычислить
10-11 класс
|
Р = а (а + 1)...(а + n -1)
var
a, P: real;
n, i: integer;
begin
P := 1;
readln(a, n);
for i := 0 to n - 1 do
P *= a + i;
writeln(P);
end.
Другие вопросы из категории
1) Электронное устройство с тремя устойчивыми состояниями
2) Электронное устройство с двумя устойчивыми состояниями
3) Нет правильного ответа
4) Электронное устройство, состоящее из накопителя
x1 x2 x3 x4 x5 x6 x7 F
1 0 0 1 1 1 1 0
1 1 1 0 1 1 0 0
0 1 0 1 1 0 0 1
Каким из приведенных ниже выражений может быть F?
1)x1/\-x2/\-x3/\x4/\x5/\x6/\x7
2)x1\/-x2\/x3\/-x4\/x5\/x6\/x7
3)-x1\/x2\/x3\/-x4\/-x5\/-x6\/-x7
4)-x1/\x2/\-x3/\x4/\x5/\-x6/\-x7
Читайте также
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
(x-1)(x-3)(x-7)...(x-63)/(x-2)(x-4)(x-8)...(x-64) (дробь)
Используя оператор: while
Не могу написать через данный оператор программу на паскаль, выходит всегда число 0. Прошу помочь мне :)
p=a(a+1)...(a+n-1)
n=3
p=a(a+1)*(a+2)