Вычислить произведение ряда

@CYPOK · Регистрация: 12.03.2010

Author24 — интернет-сервис помощи студентам

Решите плз методом цикла repeat

Даны натуральные числа a, n. Вычислить

a (a - n) (a - 2n)…(a – n2)

@Jazon_deenAlt · 12.03.2010, 16:13

Pascal

uses crt;
var
i,n,a:integer;
r:real;
begin
r:=1;
i:=0;
writeln('a?');
readln(a);
writeln('n?');
readln(n);
repeat
r:=r*(a-i*n);
i:=i+1;
until i>n;
writeln(r);
end.

@CYPOK 46 / 1 / 0 Регистрация: 12.03.2010 Сообщений: 8
		1
	Вычислить произведение ряда 12.03.2010, 15:48. Показов 1067. Ответов 1 Метки нет (Все метки) Решите плз методом цикла repeat Даны натуральные числа a, n. Вычислить a (a - n) (a - 2n)…(a – n2) 0

	12.03.2010, 16:13

Опции темы

Вычислить произведение ряда

Решение