Легенда о происхождении шахмат: мудрец попросил у раджи плату: за первую клетку доски - 1 рисовое зерно, за каждую следующую - вдвое больше, чем за предыдущую. Написать программу, подсчитывающую количество зёрен, которое раджа...

Легенда о происхождении шахмат: мудрец попросил у раджи плату: за первую клетку доски - 1 рисовое зерно, за каждую следующую - вдвое больше, чем за предыдущую. Написать программу, подсчитывающую количество зёрен, которое раджа должен был заплатить всего за первые 20 клеток шахматной доски.
Гость
Ответ(ы) на вопрос:
Гость
program radga;var count: integer; i: integer;begin count := 1; for i:= 1 to 20 do   begin     count:= count * 2;   end;   writeln(count);end. вроде так, не понял одно: нужно было умножать или добавлять так что попробовал умножить)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы