Написать программу на языке С+ + Задача: В одной старинной задаче мудрец предложил шаху в качестве награды за услугу выдать зерно. Причем количество зерна оговорил так: на первую клетку шахматной доски положить 1 зерно, на 2-ую - 2, на 3-ю - 4, на 4-ую - 8 и т. д. Составить программу, с помощью которой можно вычислить, на какой клетке суммарное количество зерен превысит N штук.

Question

Анатолий Зайцев

Информатика

10 июня, 10:14

Написать программу на языке С+ + Задача: В одной старинной задаче мудрец предложил шаху в качестве награды за услугу выдать зерно. Причем количество зерна оговорил так: на первую клетку шахматной доски положить 1 зерно, на 2-ую - 2, на 3-ю - 4, на 4-ую - 8 и т. д. Составить программу, с помощью которой можно вычислить, на какой клетке суммарное количество зерен превысит N штук.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Erema · Answer 1

var n, i: integer; k: real; begin write ('Введите количество зёрен: '); readln (n); k : = 0; while k < = n do begin i : = i + 1; k : = k + power (2, i - 1); end; writeln ('На первых ', i, ' клетках, сумма зерен больше чем ', (n), ', там их: ', k); end.