Question

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

Answer 1

Var  i,k: Integer;
BEGIN
k:=1;
For i:=1 to 7 dok:=k*2;
Writeln('В сундуке было ',k,' изумрудов');
END.

Answer 2

Можно без For

Answer 3

Используя while