Предмет: Информатика,
автор: Sashak08
Даю 50 баллов!!!Изумруды
У царя было семь сыновей. В сундуке лежали изумруды. Пришел первый сын и взял половину того, что было. Пришел второй сын и взял половину того, что осталось и т.д. Каждый из сыновей приходил и забирал половину того, что осталось. Наконец, пришел последний, седьмой сын и увидел почти пустой сундук – с двумя последними изумрудами. Сколько изумрудов было первоначально?
Составить программу (pascal). Даю 50 баллов!!!!
Ответы
Автор ответа:
0
Var i,k: Integer;
BEGIN
k:=1;
For i:=1 to 7 dok:=k*2;
Writeln('В сундуке было ',k,' изумрудов');
END.
BEGIN
k:=1;
For i:=1 to 7 dok:=k*2;
Writeln('В сундуке было ',k,' изумрудов');
END.
Автор ответа:
0
Можно без For
Автор ответа:
0
Используя while
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Химия,
автор: camillarr
Предмет: Английский язык,
автор: sintex1k3
Предмет: Литература,
автор: kometovilya
Предмет: География,
автор: pArNiShKa447824