У царя было семь сыновей. В сундуке лежали изумруды. Пришел первый
сын и взял половину того, что было. Пришел второй сын и взял половину того,
что осталось и т. д. Каждый из сыновей приходил и забирал половину того, что
осталось. Наконец, пришел последний, седьмой сын и увидел почти пустой
сундук – с двумя последними изумрудами. Сколько изумрудов было
первоначально? (сделать через ms exel)

ответ:У царя было семь сыновей каждый брал половину от оставшихся изумрудов. Последнему достались два, значит 6-му остовалось четыре из которых он взял половину то есть два. 5-му 4*2=8, 4-му 8*2=16 и так далее.

если 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.

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.