Легенда о происхождении шахмат: мудрец попросил у раджи плату: за первую клетку доски - 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.
вроде так, не понял одно: нужно было умножать или добавлять так что попробовал умножить)
Не нашли ответ?
Похожие вопросы