Написать программу решения квадратного уравнения, вычисления произведений:

а) a * (a+1) * (a+2) * ... * (a+n-1) ;

б) 246 * ... * (2*n).

Question

Информатика

Ириша

8 мая, 11:38

Написать программу решения квадратного уравнения, вычисления произведений:

а) a * (a+1) * (a+2) * ... * (a+n-1) ;

б) 246 * ... * (2*n).

+3

Ответы (1)

Знаете ответ?

Куприян · Answer 1

A)

var

a, b, c, n: integer;

begin

readln (a, n) ;

b:=1;

c:=a * (a+1) ;

repeat

b:=b+1;

c:=c * (a+b) ;

until b=n-1;

writeln (c) ;

readln;

end.

Написать программу решения квадратного уравнения, вычисления произведений:а) a * (a+1) * (a+2) * ... * (a+n-1) ;б) 2*4*6 * ... * (2*n).

Написать программу решения квадратного уравнения, вычисления произведений:

а) a * (a+1) * (a+2) * ... * (a+n-1) ;

б) 246 * ... * (2*n).