Даю 50 баллов!!!Изумруды У царя было семь сыновей. В сундуке лежали изумруды. Пришел...

0 голосов
237 просмотров

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


Информатика (616 баллов) | 237 просмотров
Дан 1 ответ
0 голосов

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

(80 баллов)
0

Можно без For

0

Используя while