Паскаль. по древней легенде мудрец, который изобрел шахматы, потребовал столько зерен, чтобы заполнить ими шахматную доску. на каждую последующую клетку зерен должны были положить в 2 раза больше. 1 гр. = 15 зерен. сколько тонн зерна получит мудрец? написать программу в паскаль
Паскаль. по древней легенде мудрец, который изобрел шахматы, потребовал столько зерен, чтобы заполнить ими шахматную доску. на каждую последующую клетку зерен должны были положить в 2 раза больше. 1 гр. = 15 зерен. сколько тонн зерна получит мудрец? написать программу в паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Программа на языке Pascal:
program WheatAndChessboard;var
grains, totalGrains, i: integer;
totalWeight: real;
begin
grains := 15;
totalGrains := grains;
totalWeight := 0;
for i := 2 to 64 do
begin
grains := grains * 2;
totalGrains := totalGrains + grains;
end;
totalWeight := totalGrains / 1000000; // переводим зерна в тонны
writeln('Мудрец получит ', totalWeight:0:2, ' тонн зерна');
end.
В данном коде мы начинаем с 15 зерен на первой клетке и умножаем количество зерен на 2 на каждой следующей клетке. В итоге получаем общее количество зерен и переводим его в тонны. Результатом программы будет количество тонн зерна, которое получит мудрец.