Дані, значення яких подаються числами називаються​

если n это количество чисел, начинаем с 3

var

i,n,p: integer

begin

readln(n);

i: =3;

p: =1;

while i< =3*n do

begin

p: =p*i;

i: =i+3;

end;

writeln(p);

end.

если n это верхняя граница чисел

var

i,n,p: integer

begin

readln(n);

for i: =3 to n

if i mod 3 = 0 then

p: =p*i;

writeln(p);

end.

я думаю так:

нечетный ряд чисел ( то есть первая цифра, третья, пятая, седьмая) увеличивается на 5, а четный (вторая, четвертая, шестая) на 1

1,3,6,4,11,5,16,6

0

+1=1

+1=2

*2=4

+1=5

+1=6

*2=12

*2=24

+1=25

*2=50

т.к. в ящике имеется 3 чёрных и 5 белых шаров, то наименьшее число шаров нужно взять из ящика(не заглядывая в него), чтобы среди вынутых шаров:

1) 6

2) 4

3) 7

4) 5