Помогите решить в паскаль.

По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т. д., т. е. на каждую следующую в двое больше предыдущей. Каким количеством зерна можно покрыть шахматную доску?

Question

Информатика

Малания

5 октября, 10:08

Помогите решить в паскаль.

По древней легенде мудрец, который изобрел шахматы, потребовал от персидского шаха такое количество пшеницы, чтобы им можно было покрыть шахматную доску, положив на первую клетку 1 зерно, на вторую - 2, на третью - 4 и т. д., т. е. на каждую следующую в двое больше предыдущей. Каким количеством зерна можно покрыть шахматную доску?

+4

Ответы (1)

Знаете ответ на вопрос?

Васюха · Answer 1

Program Zerno; Var s, k:real; i:byte; Const n=64; Begin s:=1; for i:=1 to n-1 do Begin k:=exp (i*ln (2)) ; s:=s+k; End; Writeln ('Количество зёрен: ', s,' штук') ; Readln; End.