Предмет: Информатика, автор: Sashak08

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

Ответы

Автор ответа: xLinkero
0
Var  i,k: Integer;
BEGIN
k:=1;
For i:=1 to 7 dok:=k*2;
Writeln('В сундуке было ',k,' изумрудов');
END.
Автор ответа: Sashak08
0
Можно без For
Автор ответа: Sashak08
0
Используя while
Похожие вопросы
Предмет: Английский язык, автор: sintex1k3