Не совсем понимаю, что нужно найти в задании.

[greenypeace]

Здравствуйте.

Задание:

Последовательность треугольных чисел строится по правилу: член последовательности с номером p_n = sum{i=1:n}(i). Например, седьмое треугольное число равно 1+2+3+4+5+6+7 = 28. Первые десять членов такой последовательности это 1, 3, 6, 10, 15, 21, 28, 36, 45, 55 . . .. Найти произведение первых 100 членов треугольной последовательности кратных 77.

Задание - последняя строка, в ней понятно "Найти произведение первых 100 членов треугольной последовательности", не понятно "Найти произведение первых 100 членов треугольной последовательности кратных 77" все это предложение в общем, что требуется получить в итоге.

Писать код программы не обязательно, мной пройден этап от начала до вычисления произведения каждого члена из 100, т е в моем случае P - массив чисел таких, что P(1) = p(1) = 1, P(i) = P(i-1) * p(i), i = 2:n .

Объясните пожалуйста, что требуется получить в итоге?

[__STDC__]

как-то так по идее... в итоге требуется получить произведение тех чисел из полученных, которые делятся на 77 без остатка

const
	n = 100;
var
	p:array[1..n] of integer;
	i,sum:integer;
        mul:int64;
begin
	sum := 0; mul := 1;
	for i:=1 to n do begin
		inc(sum,i);
		p[i] := sum;
		//write(p[i]:6);
		if (p[i] mod 77 = 0) then {begin}
			mul := mul*p[i];
			//write(p[i]:6);
                {end;}
	end;
	writeln;
	writeln(mul);
	readln;
end.

[greenypeace]

__STDC__ , спасибо.

Не правильно написал свои рассуждения по поводу решения задачи. 100 - не ограничение для треугольной последовательности, т е для последовательности 1, 3, 6, 10, 15, 21, 28, 36, 45, 55 . . . Поэтому программа будет написана с использованием цикла while с условием пока 100-ый член не найдется, который будет делиться на 77 без остатка, она не завершится.

Пойду прогить